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