Visual Basic上机考试综合应用题选讲

发布: 2007-6-21 21:57 | 作者: | 来源: blog | 查看: 28次 | 进入软件测试论坛讨论

下一页 1 2 3 4

　　一、素数判断与计算、输出题，并把计算与存盘部分补充完整！

Private Function isprime(a As Integer) As Boolean
　Dim flag As Boolean
　flag = True
　b% = 2
　Do While b% <= Int(a / 2) And flag
　　If Int(a / b%) = a / b% Then
　　　flag = False
　　Else
　　　b% = b% + 1
　　End If
　Loop
　isprime = flag
End Function

+++++++以下黑体字部分是程序中没有的，需要自己被充+++++++
Private Sub C1_Click()
　Dim i As Integer
　i = 18000
　Do
　　i = i - 1
　Loop Until isprime(i)
　Text1.Text = i
End Sub

Private Sub C2_Click()
　Open "out5.txt" For Output As #1
　Print #1, Text1.Text
　Close #1
End Sub

　　二、判断口令题，关键是一些循环语句及选择结构的综合应用：

Private Sub C1_Click()
　If Text1.Text = "123456" Then
　　Text1.Text = "口令正确"
　　Text1.PasswordChar = ""
　Else
　　Text2.Text = Text2.Text - 1
　　If Text2.Text > 0 Then
　　　MsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"
　　Else
　　　MsgBox "3次输入错误，请退出"
　　　Text1.Enabled = False
　　End If
　End If
End Sub

　　三、图片转换题:

Private Sub Timer1_Timer()
　a = a + 1
　If a > 6 Then
　　a = 1
　End If
　Select Case a
　　Case 1
　　　P1.Picture = LoadPicture("黄灯.ico")
　　Case 2, 3
　　　P1.Picture = LoadPicture("红灯.ico")
　　Case 4, 5, 6
　　　P1.Picture = LoadPicture("绿灯.ico")
　　　If b Then Timer2.Enabled = b
　End Select
End Sub

Private Sub Timer2_Timer()
　If (a < 4) And (P2.Left > P1.Left And P2.Left < P1.Left + P1.Width) Or P2.Left <= 100 Then
　　Timer2.Enabled = False
　Else
　　P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height
　End If
End Sub

　　四、数据计算与行列式综合应用题：

Option Base 1
Dim Arr1(20) As Integer
Dim Arr2(20) As Integer
Dim Sum As Integer

Sub ReadData1()
　Open App.Path & "\" & "datain1.txt" For Input As #1
　For i = 1 To 20
　　Input #1, Arr1(i)
　Next i
　Close #1
End Sub

Sub ReadData2()
　Open App.Path & "\" & "datain2.txt" For Input As #1
　For i = 1 To 20
　　Input #1, Arr2(i)
　Next i
　Close #1
End Sub

Sub WriteData(Filename As String, Num As Integer)
　Open App.Path & "\" & Filename For Output As #1
　Print #1, Num
　Close #1
End Sub

Private Sub C1_Click()
　ReadData1
　ReadData2
End Sub

Private Sub C2_Click()
　Dim arr3(20) As Integer
　Sum = 0
　For i = 1 To 20
　　arr3(i) = Arr1(i) \ Arr2(i)
　　Sum = Sum + arr3(i)
　Next
　Print Sum
End Sub

Private Sub C3_Click()
　WriteData "dataout.txt", Sum
End Sub