《河北经贸vb复习题.docx》由会员分享，可在线阅读，更多相关《河北经贸vb复习题.docx（10页珍藏版）》请在三一办公上搜索。
1、河北经贸vb复习题 1以下程序用于计算1+3+5+99。 Private Sub Command1_Click sum = 0 m = 1 Do sum = sum + m m = m+2 Loop While m Sqr(n) Then msgbox n & 是素数 else msgbox n & 不是素数 endif 1 End Sub 5.以下程序用于求从100-1000之间所有3的倍数的数之和，当和大于3000时，停止计算并输出和。 Private Sub Command1_Click Dim i As Integer Dim sum As Integer For i = 100 To
2、 1000 If i mod 3=0Then sum = sum + i If sum 3000 Then exit fo End If Next i Print i, sum End Sub 6.本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生n个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Textl、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程
3、序，请填空。 Private Sub Command1_Click Randomize n = CInt(Text1.Text) a = 0 b = 0 For i = 1 To n r = Int(Rnd * 2) If r = l Then a = a + 1 Else b = b+1 End If Next Text2.Text = a Text3.Text = b End Sub 7.下面程序是输入任意长度的字符串，要求将字符串顺序倒置，例如，将输入的“ASDFGHJKL”变换为“LKJHGFDSA”。阅读程序并填空。 Private Sub command1_Cliek Dim t$
4、, i%, c$, n% t = InputBox$(输入字符串) Print t n= len(t) For i=1 To int(n/2) c = Mid(t, i, 1) Mid(t,i,1)=Mid(t,n-i+1,1) Mid(t,n-i+1,1)=c Next i Print t End Sub 2 8下面程序的功能是找出被3除余数为1的最小的10个正整数。阅读程序并填空。 Private Sub Command1_Click Dim m As Integer, n As Integer m =0 n =0 Do n = n + 1 If n mod 3=1 Then Print
5、n m = m+1 End If Loop while m100 Then exit do Loop Print s End Sub 11该程序计算1100的总和，补充程序。 程序填空题,1016,设有如下程序: Private Sub Command1_Click i = 1 Do While i then text2.text= else text2.text=n*n End Sub ,1Bn1E2B02E3Bsqr(n)3E 程序填空题,1020,计算:1+1/1!+1/2!+1/3!+1/10!，请将程序补充完整。 Private Sub Command1_Click sum=1:t=
6、 For i=1 to t=t*i sum=sum+ next i Print sum=; sum End Sub ,1B11E2B102E3Bt3E 4 14. 计算:1-1/2+1/3-1/4+1/99-1/100，请将程序补充完整。 Private Sub Command1_Click dim i As Integer, t As Integer dim sum As Single sum=0: t= for i=1 to t=t*(-1) sum=sum+t* next i debug.print sum=; sum End Sub ,1B-11E2B1002E3B1/I3E 15以下
7、程序用于输入三个数a,b,c，输出三者之中最大数, 请将程序补充完整。 Private Sub Command1_Click Dim a As Single, b As Single, c As Single, max As Single a = Val(InputBox(请输入第1个数:, 输入a, 0) b = Val(InputBox(请输入第2个数:, 输入b, 0) c = Val(InputBox(请输入第3个数:, 输入c, 0) p = a & , & b & , & c max = If b max Then max = If c max Then max = c Print
8、 p & 三个数中最大数是: & End Sub ,1Ba1E2Bb2E3Bmax3E 16.,以下程序用于火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.40元收费。在文本框text1中输入行李重量，计算出应付运费。请将程序补充完整。 Private Sub Command1_Click Dim x As Single, y As Single = Val(Text1.Text) If x = Then y = x * 0.25 Else y = 50 * 0.25 + (x - 50) * 0.4 End If Print 应付运
9、费为： ; End Sub ,1Bx1E2B502E3By3E 程序填空题,1024,以下程序是用户连续输入N个值，直到输入非数值数据为止，最后输出其中最小的一个数。请将程序补充完整。 Private Sub Command1_Click Dim x, min As Single x = InputBox(请输入x) Print x; Spc(2); If IsNumeric(x) Then min = Else MsgBox 输入的是非数值数据，结束输入 5 Exit Sub End If Do x = InputBox(输入x) If IsNumeric(x) Then If x min
10、Then min = x Print x; Spc(2); Else MsgBox 输入的是非数值数据，结束输入 End If Loop Print Print 最小数为：; End Sub ,1Bx1E2Bexit do2E3Bmin3E 程序填空题,1025,用数组的方法生成20个两位数的随机数整数 Private Sub Form_Load Randomize For i = 1 To a(i) = Int(Rnd * ) +10 print a(i) Next End Sub ,1B101E2B902E 程序填空题,1026,用数组求和：1+2+3+100。程序如下： Private
11、Sub Command1_Click Dim a(1 to 100) As Integer Dim s As Integer For i = 1 To a(i) = Next i s = 0 For i = 1 To 100 s = s + Next i Print 1+2+3+100=; s End Sub,1B1001E2Bi2E3Ba(i)3E 程序填空题,1027,用随机数的方法生成两个4*5矩阵，求这两个矩阵之和，并打印输出结果矩阵 Private Sub Command1_Click Dim a(1 To 4, 1 To 5) As Integer Dim b(1 To 4, 1
12、To 5) As Integer Dim c(1 To 4, 1 To 5) As Integer For i = 1 To For j = 1 To a(i, j) = Int(Rnd * 90) + 10 b(i, j) = Int(Rnd * 90) + 10 c(i, j) = + b(i, j) 6 Next j Next i For i = 1 To 4 For j = 1 To Print Format(, !); Next j Print Next i End Sub ,1B41E2B52E3Ba(i,j)3E4B54E5Bc(i, j)5E 程序填空题,1028,设有三个圆，
13、用For eachnext循环和控件数组改变它们的颜色。 Private Sub Command1_Click(Index As Integer) Select Case Case 0 For Each In Shape1 X.FillColor = RGB(0, 0, 255) Next X Case For Each X In Shape1 X.FillColor = RGB(255, 0, 0) Next X Case For Each X In Shape1 X.FillColor = RGB(0, 255, 0) Next X End End Sub ,1BIndex1E2Bx2E3
14、B13E4B24E5Bselect5E 程序填空题,1029,运行下列程序，从三个数中找到中间数。 Private Sub Form_Click Dim a(3) as integer Print 输入的数据是：; For i=1 to 3 a(i)=inputbox(输入数据） Print a(i); Next Print If a(1)a(3) Then m=a(2) Elseif a(1)a(3) Then m= Else m= 7 End If Print 中间数是：;m End Sub ,1Bt1E2Ba(3)2E3Ba(1)3E 程序填空题,1030,在窗体上有两个命令按钮Comm
15、and1和Command2，标题分别是“初始化”和“求和”。程序运行后如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”按钮，则对数组a的各元素求和，并在文本框中显示出来。 Private a(3,2) As Integer Private Sub Command1_click For i=1 to 3 For j=1 to 2 =i+j Next j Next I End Sub Private Sub Command2_click For j=1 to 3 For i=1 to 2 s=s+ Next i Next j Text1.text= ,1Ba(i,j)1E2Ba(j,i)2E3Bs3E 8
