《VB编程题附答案》由会员分享，可在线阅读，更多相关《VB编程题附答案（11页珍藏版）》请在金锄头文库上搜索。
1、Vb编程题1. 求自然数1100之间奇数之和。Private Sub Form_Click()Dim i%, sum%For i = 1 To 99 Step 2sum = sum + iNext iPrint sum=; sumEnd Sub2. 求自然数1100之间偶数之和。Private Sub Form_Click()Dim i%, sum%For i = 1 To 100 If i mod 2=0 thensum = sum + iend ifNext iPrint sum=; sumEnd Sub3. 编写程序，在窗体上随机输出一个10-99之间的两位整数。Sub command1
2、_click()Dim a%Randomizea=int(rnd*90+10)print aend sub4. 编程计算从200到1000之间的所有4的倍数之和。Private Sub Form_Click()Dim sum As Longsum = 0For i = 200 To 1000If i Mod 4 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub5. 编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2Dim s As Singles = 0For i = 5 To 1 Step -1s = s + i / (i + 1
3、)NextPrint “5/6+4/5+3/4+2/3+1/2=”;s6. 在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。Private Sub Command2_Click() Clsa = Val(InputBox(接收三个数:)Print a; Max = a For i = 1 To 2 a = Val(InputBox(接收三个数:) Print a; If a Max Then Max = a Next Print Print 三数中最大者是:; MaxEnd Sub7. 在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。Private Sub Co
4、mmand2_Click()Dim a(1 To 3) As IntegerFor i = 1 To 3a(i) = InputBox(请输入第 & i & 个数)Next iFor i = 1 To 2 For j = i + 1 To 3 If a(i) =0); y=1-5x (x0)。Private Sub Command1_Click()Dim x!, y!x = InputBox(请输入x的值)If x 0 Theny = 1 - 5 * xElsey = 1 + 3 * xEnd IfPrint y=; yEnd Sub11.编写程序，在窗体上输出由1、2、3、4、5这五个数字组
5、成的所有可能的两位数，并统计它们的个数。Private Sub Command1_Click()Dim a%, n%For i = 1 To 5 For j = 1 To 5 a = i * 10 + j n = n + 1 Print Str(a) Next jNext iPrint 总个数：; nEnd Sub12.有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的单击事件，实现计算1！+2！+3！+10!,将结果显示在文本框Text1中。 Private Sub Command1_Click()Sum = 0 x = 1 For i = 1 To 10 x = x
6、 * i Sum = Sum + x Next Text1.text= SumEnd Sub13.编写程序计算：s=1+1/2!+1/3!+1/n!,说明：在窗体中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。Private Sub Command1_Click()Sum = 0 x = 1n=Text1.text For i = 1 To n x = x * i Sum = Sum + x Next Text1.text= SumEnd Sub
7、14.通过文本框输入一个整数X，判断X是否能被2整除。判断的结果在标签中显示。Private Sub Command1_Click() x = Val(Text1.Text)If x Mod 2 = 0 ThenLabel1.Caption = x & 能被2 整除ElseLabel1.Caption = x & 不能被2 整除End IfEnd Sub15.编写程序, 点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。Private Sub Command1_Click() Dim a As Stringa = Text1.TextText1.Text = T
8、ext2.TextText2.Text = aEnd Sub16.求s=a+aa+aaa+aaaaaa(n个a),其中a和n的值由用户自己输入。例如，当a=3,n=4时，S=3+33+333+3333。Private Sub Form_Click() Cls a = Val(InputBox(a=) n = Val(InputBox(n=) s = 0 s1 = 0 For i = 1 To n s1 = s1 * 10 + a s1 = s1 + a * 10 (i - 1) s = s + s1 Next Print sEnd Sub17.在窗体上输出下三角的九九乘法表。Private S
9、ub Form_Click()ClsFor i = 1 To 9 For J = 1 To i Print i; *; J; =; Format(Str(i * J), !); Next PrintNextEnd Sub18.编写程序，将26个字母逆序输出。Private Sub Command1_Click() Dim n%, m%n = Asc(a)For i = 1 To 26m = n + 26 - iPrint Chr(m)Next iEnd Sub19.编写程序，将字符串山高人为峰按逆序峰为人高山输出。Private Sub Command1_Click() Clss = 山高人为
10、峰 s1 = For i = Len(s) To 1 Step -1 s1 = s1 & Mid(s, i, 1) Next Print s1End Sub20.编写程序，在窗体上随机输出一个10-99之间的两位整数。同第3题21.设纸的厚度为0.5毫米，将纸对折，再对折，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。Private Sub Form_Click() Cls h = 0.5: cs = 0 Do While h 8848000 h = h * 2 cs = cs + 1 Loop Print 折纸次数为:; csEnd Sub22.在窗体的单击事件中编写程序，要
11、求：由文本框TEXT1输入一个0到6的数字，单击窗体时，在标签控件LABEL1上显示汉英对照星期信息，如：输入0，则显示星期日（SUNDAY）、输入，则显示星期一（MONDAY），以此类推。如果输入0-6以外的数据，用MsgBox信息框显示“输入数据错误”的提示信息。Private Sub Form_Click() Dim d As Integer d = Val(Text1.Text) Select Case d Case 0 Label1.Caption = Sunday Case 1 Label1.Caption = Monday Case 2 Label1.Caption = Tues
12、day Case 3 Label1.Caption = Wednesday Case 4 Label1.Caption = Thursday Case 5 Label1.Caption = Friday Case 6 Label1.Caption = Saturday Case Else MsgBox 输入数据错误 End SelectEnd Sub23.编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一今天是星期二今天是星期三今天是星期四今天是星期五今天是星期六今天是星期日。sub command1_click()static n as integern=n+1select case n mod 7case 0form1.caption=今天是星期日case 1form1.caption=今天是星期一case 2form1.caption=今天是星期二case 3form1.caption=今天是星期三case 4form1.caption=今天是星期四case 5
