VB程序分析和总结.pdfVIP

模（一 二） 1.从键盘上输入3 个数分别放入x y z 中，编程使x 中的数最大，z 中的数最小。 Private Sub Form_Click() x = Val(InputBox(请输入x)) y = Val(InputBox(请输入y)) z = Val(InputBox(请输入z)) If x y Then t = x: x = y: y = t If y z Then t = y: y = z: z = t If x y Then t = x: x = y: y = t Print x; y; z End Sub 2.用近似公式求自然对数e 的值，精确到1/n!F,F 由用户输入。e=1+1/1!+1/2!+……1/n! Private Sub Form_Click() Dim F#, e#, n%, t e = 1: n = 1: t = 1 F = Val(InputBox(输入F 值)) Do e = e + 1 / t n = n + 1 t = t * n Loop Until 1 / t = F Print e End Sub 3. d:\a.txt 复制为d:\b.txt,要求不能直接使用Filecopy 语句。 Private Sub Command1_Click() Dim sline As String Open d:\a.txt For Input As 1 Open d:\b.txt For Output As 2 While Not EOF(1) Line Input #1, sline Print #2, sline Wend Close Print Copy finished End Sub 4.统计200~300 中素数的个数，显示在窗体上，素数的判断用自定义函数judge 来实现。 Function judge(ByVal i As Long) As Boolean For j = 2 To m If i Mod j = 0 Then Exit For Next j If j m Then judge = True Else judge = False End Function Private Sub Command1_Click() Dim c As Integer For i = 200 To 300 If judge(i) Then c = c + 1 Next i Print 200 到300 之间共 ; c; 个素数 End Sub 5.模拟彩票自动选号在文本框内显示30 以内的7个数，且互不相同。 Private Sub Form_Click() Dim a(1 To 7) As Integer Randomize a(1) = Int(Rnd() * 30) + 1 For i = 2 To 7 n = Int(Rnd() * 30) + 1 For j = 1 To i - 1 If a(j) = n Then Exit For Next j If j = i Then a(i) = n Else i = i – 1 Next I Text1.Text = For i = 1 To 7 Text1.Text = Text1.Text a(i) Next i End Sub 6.利用循环，打印输出下图。 * *** ***** ******* ********* ******* ***** *** * Private Sub Command1_Click() For i = 1 To 5 Print Tab(20 - i); String(2 * i - 1, *) Next i For i = 4 To 1 Step -1 Print Tab(20 - i); String(2 * i - 1, *) Next i End Sub 7.找出3—100之间的所有孪生素数。 Private Function isprime(i) As Boolean For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then isprime = True End If End Function Private Sub Form_Click() For i = 3 To 100 If isprime(i) And ispri