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
