2023年常见VB考试卷最新版型.pdf

《2023年常见VB考试卷最新版型.pdf》由会员分享，可在线阅读，更多相关《2023年常见VB考试卷最新版型.pdf（32页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、常见 VB考试题型 1 输入半径,求圆面积与球体积。Private Sub Form_Load()Dim r As Single,s As Single,v As Single r=InputBox(请输入半径 r:,输入数据)s=3、14*r 2 v=4/3*r 3*3、14 Print 圆面积为:;s Print 球体积为:;v MsgBox(圆面积为:&s&Space(2)&球体积为:&v)End Sub 2 输入两个数存放在 x 与 y 中,比较大小,保证大数放在 x 中,小的数放在 Y 中。Private Sub Command1_Click()Print 比较前:X=InputBo

2、x(请输入 X)Y=InputBox(请输入 Y)Print X=;X,Y=;Y If X Y Then Z=Y Y=X X=Z End If Print 比较后:Print X=;X,Y=;Y End Sub 3 判断一个整数的奇偶性 Private Sub Form_Click()x=Val(InputBox(请输入一个数;)If x Mod 2=0 Then MsgBox(x&就是偶数)Else MsgBox(x&就是奇数)End If End Sub 4 帐号与密码 Private Sub Command1_Click()If Text1、Text=12345 Then If Text

3、2、Text=12345 Then MsgBox 登录成功,64+1,登录 Else MsgBox 密码错误,请重新输入,16 End If Else MsgBox 用户不存在,16+1,登录 End If 常见 VB考试题型 End Sub 5 判断一个数就是整数还就是小数,如果就是整数再判断其奇偶性。Private Sub Form_Click()x=InputBox(请输入一个数;)If InStr(1,x,、)=0 Then If x Mod 2=0 Then MsgBox(x&就是整数,就是偶数！)Else MsgBox(x&就是整数,就是奇数！)End If Else MsgBox

4、(x&就是小数)End If End Sub 6 书店优惠售书 Private Sub Command1_Click()Dim x As Single,y As Single x=Val(Text1、Text)Select Case x Case Is=100 y=x*0、8 Case Is=200 y=x*0、7 Case Is=300 y=x*0、5 Case Else y=x*0、3 End Select Label3、Caption=y&元 End Sub 7 设计一个计程车收费程序 Private Sub Command1_Click()X=Val(Text1、Text)Select

5、 Case X Case Is=3 Label3、Caption=6 Case Is=30 Label3、Caption=6+(X-3)*1、5 Case Else Label3、Caption=6+27*1、5+(X-30)*2 End Select End Sub 8 输入 10 个数,输出累加之与。Private Sub Command1_Click()常见 VB考试题型 Dim S As Single,i As Integer,x As Single S=0 For i=1 To 10 x=Val(InputBox(请输入第&i&个数)Print 第&i&个数&x S=S+x Next

6、 i Print 十个数累加之与为&S End Sub 9 输入 10 个数,输出偶数之与。Private Sub Command1_Click()Dim S As Single,x As Single Dim n As Integer,i As Integer S=0 For i=1 To 10 x=Val(InputBox(请输入第&i&个数)Print 第&i&个数&x If x Mod 2=0 Then S=S+Val(x)End If Next i Print 十个数中偶数累加之与为&S End Sub 10 求 S=1+2+3+100 Private Sub Command1_Cl

7、ick()Dim I As Integer,S As Long S=0 For I=1 To 100 S=S+I Next I Print Tab(10);S=;S End Sub 11 求 S=1+3+5+99 Private Sub Command1_Click()s=0 For i=1 To 100 Step 2 s=s+i Next i Print s=;s End Sub 12 S=1+22+32+102,计算并输出 s Private Sub Command1_Click()s=0 For i=1 To 10 常见 VB考试题型 s=s+i 2 Next i Picture1、Pr

8、int s=;s End Sub 13 S=1+22+32+n2,问 n 为多少时,s 的值大于 100000？Private Sub Command1_Click()s=0 n=0 Do While s 10 (-5)S1=1 J=1 Do While J=10 (-5)S=S+(1/x)*(-1)(n+1)x=x*(n*2)*(2*n+1)n=n+1 Loop Print S=;S End Sub 常见 VB考试题型 21 s=2+22+222+2222+22222+222222 Private Sub Command1_Click()Dim s As Long,s1 As Long,i

9、As Integer,j As Integer s=0 For i=1 To 6 s1=0 For j=1 To i s1=s1+2*10 (j-1)Next s=s+s1 Next Print s=;s End Sub 22 S=a+aa+aaa+aaaa(N 个 a)其中 a 就是一个1,9的随机整数,N 就是一个5,10的随机整数。Private Sub Command1_Click()Dim a As Integer,n As Integer Dim s As Long,s1 As Long,i As Integer,j As Integer Cls Randomize a=Int(9

10、*Rnd)+1 n=Int(6*Rnd)+5 s=0 For i=1 To n s1=0 For j=1 To i s1=s1+a*10 (j-1)Next j s=s+s1 Next i Print 当 a=;a,n=;n;时 Print Print s=;s End Sub 23 S=1+12+123+1234+12345+123456 Private Sub Command1_Click()Dim s As Long,s1 As Long,i As Integer,j As Integer s=0 s1=0 For i=1 To 6 s1=s1*10+i Print s1 s=s+s1

11、Next i 常见 VB考试题型 Print s=;s s=0 For i=1 To 6 s1=0 For j=1 To i s1=s1+j*10 (i-j)Next j s=s+s1 Next i Print s=;s End Sub 24 将一字符串逆序输出 Private Sub Command1_Click()Dim n As Integer,s1 As String,s2 As String s1=Text1、Text s2=n=Len(Trim(Text1、Text)For i=n To 1 Step-1 s2=s2&Mid(s1,i,1)Next i Text2、Text=s2

12、End Sub 25 判断任给一大于 3 的整数就是否就是素数。Private Sub Command1_Click()Dim N As Integer,I As Integer N=InputBox(请输入一个大于 3 的整数)For I=2 To N-1 If N Mod I=0 Then Exit For End If Next I If N=I Then MsgBox(N&就是素数)Else MsgBox(N&不就是素数)End If End Sub 26 输出 3100 之间的素数 输出 Private Sub Command1_Click()Dim n As Integer,i A

13、s Integer For n=3 To 100 For i=2 To n-1 If n Mod i=0 Then 常见 VB考试题型 Exit For End If Next i If i=n Then Print n End If Next n End Sub 换行输出 Private Sub Command2_Click()Dim n As Integer,i As Integer Dim m As Integer m=0 For n=3 To 100 For i=2 To n-1 If n Mod i=0 Then Exit For End If Next i If i=n Then

14、m=m+1 If m Mod 5=0 Then Print n Else Print n;End If End If Next n End Sub Private Sub Command2_Click()Dim n As Integer,i As Integer dim m as in m=0 For n=3 To 100 For i=2 To n-1 If n Mod i=0 Then Exit For End If Next i If i=n Then m=m+1 If m Mod 5=0 Then Print Tab(6*m);n m=0 常见 VB考试题型 Else Print Tab

15、(6*m);n;End If End If Next n End Sub 27 输出 100999 之间的水仙花数 Private Sub Command1_Click()Dim I As Integer,A As Integer Dim B As Integer,C As Integer For I=100 To 999 A=Int(I/100)B=Int(I/10)-A*10 C=I-A*100-B*10 If A 3+B 3+C 3=I Then Picture1、Print I;End If Next I End Sub 28 陈婷的 QQ 密码就是一个 5 位数。但因为有一段比较长的

16、日子没上了,陈婷把这个密码给忘了。不过陈婷的生日就是 8 月 1 日,她妈妈的生日就是 9 月 1 日,她特别喜欢把同时就是 8l与 9l 的倍数用作密码。陈婷还记得这个密码的中间一位(百位数)就是 l。您能设计一个程序帮她找回这个密码不?Private Sub Command1_Click()陈婷密码:5 位数,能被 81,91 整除,百位就是 1 Dim i As Long,x As Integer For i=10100 To 99199 x=i 100 Mod 10 If x=1 Then If i Mod 91=0 And i Mod 81=0 Then MsgBox 密码就是&i

17、End If End If Next i End Sub 29 百元买百鸡问题。假定小鸡每只 5 角,公鸡每只 2 元,母鸡每只 3 元。现在有 100 元钱要求买 100 只鸡(每种鸡至少一只),编程列出所有可能的购鸡方案 Option Explicit Private Sub Command1_Click()Dim X As Integer,Y As Integer Dim z As Integer,I As Integer I=0 For X=1 To 100 For Y=1 To 50 常见 VB考试题型 For z=1 To 33 If X+Y+z=100 And 0、5*X+2*Y

18、+3*z=100 Then I=I+1 Picture1、Print 方案&I&:小鸡&X&只,_&公鸡&Y&只,&母鸡&z&只。End If Next z,Y,X End Sub 30 鸡兔合笼共 20 只,脚 46 只问鸡几只?兔几只?Private Sub Command1_Click()Dim x As Integer,y As Integer For x=1 To 20 For y=1 To 20-x If x+y=20 And 2*x+4*y=46 Then Print 鸡&x&只,兔&y&只 End If Next y Next x End Sub 31 找出 100 之内的自然

19、数对。(两数的与就是某个自然数的平方,两数的差也就是某数的平方)Private Sub Command1_Click()For i=1 To 99 For j=i+1 To 100 If Int(Sqr(j-i)=Sqr(j-i)And Int(Sqr(j+i)=Sqr(j+i)Then Print i,j End If Next j Next i End Sub 32 找出 1000-9999之间的玫瑰花数。Private Sub Command1_Click()Dim i As Integer Dim a1 As Integer,a2 As Integer Dim a3 As Intege

20、r,a4 As Integer For i=1000 To 9999 a1=i 1000 a2=i 100 Mod 10 a3=i 10 Mod 10 a4=i Mod 10 If a1 4+a2 4+a3 4+a4 4=i Then Print i End If Next i 常见 VB考试题型 End Sub 33 猴子吃桃子。小猴在某天摘桃若干个,当天吃掉一半多一个;第二天吃了剩下的桃子的一半多一个;以后每天都吃尚存桃子的一半多一个,到第 7 天要吃时只剩下一个,问小猴共摘下了多少个桃子？Option Explicit Private Sub Command1_Click()Dim X

21、As Integer,I As Integer X=1 For I=6 To 1 Step-1 X=(X+1)*2 Picture1、Print 第&I;天桃子数就是:&X&个。Next I End Sub 34 瓜农有西瓜 1020 个,每天能卖掉前一天剩下的总数的一半还多两个,问多少天能卖完。Option Explicit Private Sub Command1_Click()Dim X As Integer,I As Integer X=1020 I=0 Do While X 0 X=X/2-2 I=I+1 Loop Label4、Caption=第&I&天能卖完、End Sub 35

22、 一球从 10 米高空落下,每次弹起高度为落下高度的 40%,求第 8 次落下,小球经历的路程。Private Sub Command1_Click()Dim s As Single,h As Single,i As Integer s=10 h=10 For i=2 To 8 h=h*0、4 s=s+h*2 Next i Picture1、Print 球第八次落下经历的路程就是:;s;米 End Sub 36 输入十个数,输出其中的最大数与最小数 Private Sub Command1_Click()Dim x As Single,i As Integer Dim max As Singl

23、e,min As Single x=Val(InputBox(请输入第 1 个数)Print x max=x:min=x For i=2 To 10 常见 VB考试题型 x=Val(InputBox(请输入第&i&个数)Print x If x max Then max=x Else If x MAX Then MAX=C(I)Else If C(I)=n Then x=n Else x=m 常见 VB考试题型 End If For i=1 To x If m Mod i=0 And n Mod i=0 Then Max=i End If Next i Label3、Caption=最大公约数

24、就是&Max End Sub Private Sub Command2_Click()Dim m As Integer,n As Integer Dim i As Integer,mas As Integer m=Val(Text1、Text)n=Val(Text2、Text)If m=n Then x=m Else x=n End If Max=x For i=x To m*n If x Mod i=0 And x Mod i=0 Then Min=i Exit For End If Next i Label3、Caption=最小公倍数就是&Min End Sub 39 统计 1100 之

25、间能被 3 整除与能被 7 整除的数各有多少个?Private Sub Command1_Click()Dim i As Integer,m As Integer,n As Integer m=0:n=0 For i=1 To 100 If i Mod 3=0 Then m=m+1 End If If i Mod 7=0 Then n=n+1 End If Next i Print 能被 3 整除的数有&m&个&vbCrLf&能被 7 整除的数有&n&个 End Sub 40 统计字符串中字母“A”出现的次数(不区分大小写)Option Explicit Private Sub Command

26、1_Click()常见 VB考试题型 Dim N As Integer,I As Integer,x As String N=0 x=Text1、Text For I=1 To Len(x)If Mid(x,I,1)=A Or Mid(x,I,1)=a Then If UCase(Mid(x,I,1)=A Then N=N+1 End If Next I Text2、Text=N End Sub 41 统计字符串中大写字母、小写字母、数字字符的个数分别就是多少？Private Sub Command1_Click()Dim N1,N2,N3,I N1=0:N2=0:N3=0 For I=1 T

27、o Len(Text1、Text)X=Mid(Text1、Text,I,1)Select Case X Case A To Z N1=N1+1 Case a To z N2=N2+1 Case 0 To 9 N3=N3+1 End Select Next Picture1、Print 大写字母个数:;N1 Picture1、Print 小写字母个数:;N2 Picture1、Print 数字字符个数:;N3 End Sub 42 简单图形输出 Private Sub Command1_Click()Picture1、Cls Dim N As Integer,I As Integer Dim J

28、 As Integer,A As Integer 常见 VB考试题型 N=Val(Text1、Text)For I=1 To N Picture1、Print Tab(10-I);For J=1 To 2*I-1 Picture1、Print Trim(Str(I);Next J Print Next I N=Val(Text1、Text)For I=1 To N Picture1、Print Tab(15-I);For J=1 To 2*I-1 Picture1、Print Chr(64+I);Next J Picture1、Print Next I End Sub 43 输出一个 55 矩

29、阵,该矩阵主对角线元素为 1,其余元素为 0。Private Sub Command1_Click()Dim a(5,5)For i=1 To 5 For j=1 To 5 If i=j Then a(i,j)=1 Else a(i,j)=0 End If Print a(i,j);Next j Print Next i End Sub 44 随机产生 10 个 1100 之间的 整数,并按从小到大顺序输出。Private Sub Command1_Click()Dim a(10)As Integer For i=1 To 10 a(i)=Int(100*Rnd()+1 Print a(i);

30、Next i For i=1 To 9 For j=1 To 10-i If a(j)=a(j+1)Then t=a(j):a(j)=a(j+1):a(j+1)=t End If 常见 VB考试题型 Next j Next i Print Print 排序后 For i=1 To 10 Print a(i);Next i End Sub 45 求 nn 矩阵每行元素之与(n 值由键盘输入,矩阵元素随机产生,范围在20-50之间。Private Sub Command1_Click()Dim a()As Integer,S As Integer n=Val(InputBox(请输入 n)ReDi

31、m a(n,n)For i=1 To n S=0 For j=1 To n a(i,j)=Int(31*Rnd+20)Print a(i,j);S=S+a(i,j)Next j Print 第;i;行元素之与:;S Next i End Sub 46:输入 10 个同学 3 门课成绩,求每个同学的总分,并按总分从高到低顺序输出。(每个同学名次)Private Sub Command1_Click()Dim a(10,5)Print 成绩 1;Tab(6);成绩;Tab(12);成绩;Tab(18);总分;Tab(24);名次 For i=1 To 3 a(i,4)=0 For j=1 To 3

32、 a(i,j)=Val(InputBox(第&i&个同学第&j&门成绩)a(i,4)=a(i,4)+a(i,j)Next j Next i For i=1 To 3 a(i,5)=1 For j=1 To 3 If a(j,4)a(i,4)Then a(i,5)=a(i,5)+1 End If Next j Next i For i=1 To 3 常见 VB考试题型 For j=1 To 5 Print Tab(j-1)*6);a(i,j);Next j Print Next i End Sub 47:出一个 55 矩阵的每行最大元素,及最大元素的下标值。该矩阵每个元素为1,100之间的随机整

33、数。Private Sub Command1_Click()Randomize Dim a(5,5)As Integer,i As Integer,j As Integer Dim max As Integer,h As Integer For i=1 To 5 max=0:h=0 For j=1 To 5 a(i,j)=Int(100*Rnd+1)Print Tab(4*j);a(i,j);If a(i,j)max Then max=a(i,j)h=j End If Next j Print Tab(4*j);第;i;行最大元素就是;max;就是第;h;个元素 Next i End Sub

34、48:Sub 过程与 Function 过程的创建均可采用两种方法:1、直接在代码窗口输入过程的结构语句与过程语句 Private Sub Command1_Click()m=Val(Text1、Text)n=Val(Text2、Text)mn=m-n Text3、Text=jc(m)/jc(n)/jc(mn)End Sub Private Function jc(x)s=1 For i=1 To x s=s*i Next i jc=s End Function Private Sub Command2_Click()Text1、Text=:Text2、Text=:Text3、Text=End

35、 Sub 2、通过“工具”菜单中的添加“过程”常见 VB考试题型 过程 1 Private Sub Command1_Click()m=Val(Text1、Text)n=Val(Text2、Text)mn=m-n Call jc(m)m=s Call jc(n)n=s Call jc(mn)mn=s Text3、Text=m/n/mn End Sub Private Sub jc(x)s=1 For i=1 To x s=s*i Print s Next i End Sub Private Sub Command2_Click()Text1、Text=:Text2、Text=:Text3、Te

36、xt=End Sub 过程 2 Dim s Private Sub Command1_Click()m=Val(Text1、Text)n=Val(Text2、Text)mn=m-n Call jc(m)Call jc(n)Call jc(mn)mn=s Text3、Text=m/n/mn End Sub Private Sub jc(x)s=1 For i=1 To x s=s*i Next i x=s End Sub Private Sub Command2_Click()Text1、Text=:Text2、Text=:Text3、Text=常见 VB考试题型 End Sub 49:编写一个

37、求三角形面积的 Function 过程 Option Explicit Private Sub Command1_Click()Dim A,B,C A=Val(Text1、Text)B=Val(Text2、Text)C=Val(Text3、Text)If A+B C And B+C A And A+B C Then Picture1、Print 三角形面积:&Format(JS(A,B,C),0、00)Else MsgBox A,B,C 不能构成三角形,请重新输入!,48,警告 Text1、Text=Text2、Text=Text3、Text=End If End Sub Private Fu

38、nction JS(A,B,C)Dim X,S X=(A+B+C)/2 S=Sqr(X*(X-A)*(X-B)*(X-C)JS=S End Function Private Sub JS1(A,B,C)Dim X,S X=(A+B+C)/2 S=Sqr(X*(X-A)*(X-B)*(X-C)Picture1、Print S End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then Text2、SetFocus Else If Chr(KeyAscii)9 Or Chr(KeyAscii)9 Or Chr

39、(KeyAscii)9 Or Chr(KeyAscii)a(j)Then t=a(i):a(i)=a(j):a(j)=t End If Next j Next i 常见 VB考试题型 For i=1 To 10 List2、AddItem a(i)Next i End Sub Private Sub Command3_Click()List1、Clear List2、Clear End Sub 59:Private Sub Command1_Click()Dim T If List1、ListIndex=-1 Then MsgBox 请选择,64,提示 Else If List1、ListIn

40、dex 0 Then T=List1、List(List1、ListIndex)List1、List(List1、ListIndex)=List1、List(List1、ListIndex-1)List1、List(List1、ListIndex-1)=T Text2、Text=List1、ListIndex List1、ListIndex=List1、ListIndex-1 End If End If End Sub Private Sub Command2_Click()Dim T If List1、ListIndex=-1 Then MsgBox 请选择,64,提示 Else If Li

41、st1、ListIndex List1、ListCount-1 Then T=List1、List(List1、ListIndex)List1、List(List1、ListIndex)=List1、List(List1、ListIndex+1)List1、List(List1、ListIndex+1)=T List1、ListIndex=List1、ListIndex+1 Text2、Text=List1、ListIndex+1 End If End If 常见 VB考试题型 End Sub Private Sub Command3_Click()If Text1、Text=Then Msg

42、Box 请输入添加明星的姓名及名次,48,警告 Else If Val(Text2、Text)List1、ListCount+1 Then MsgBox 请重新输入名次,48,警告 Text2、Text=Text2、SetFocus Else List1、AddItem Text1、Text,Text2、Text-1 End If End If End Sub Private Sub Command4_Click()List1、RemoveItem List1、ListIndex End Sub Private Sub Form_Load()List1、AddItem 姚明 List1、Add

43、Item 麦迪 List1、AddItem 诺维斯基 List1、AddItem 科比 List1、AddItem 弗朗西斯 End Sub Private Sub Text2_Change()If Text1、Text Then Command3、Enabled=True End If End Sub 60:Option Explicit Dim N1,N2 Private Sub Command1_Click()Picture1、Cls If Combo1、ListIndex -1 Then Dim X,I 常见 VB考试题型 X=Val(Combo1、Text)For I=2 To X-

44、1 If X Mod I=0 Then Exit For End If Next I If X=I Then Picture1、Print X;就是素数 List1、AddItem X N1=N1+1 Label3、Caption=素数有&N1&个 Else Picture1、Print X;不就是素数 List2、AddItem X N2=N2+1 Label4、Caption=非素数有&N2&个 End If Combo1、RemoveItem Combo1、ListIndex End If End Sub Private Sub Form_Load()Dim I For I=1 To 1

45、00 Combo1、AddItem Int(98*Rnd+3)Next I End Sub 61:Private Sub Command1_Click()Command1、Enabled=False Dim I,J Static N1,N2 For I=0 To Combo1、ListCount-1 For J=2 To Val(Combo1、List(I)-1 If Val(Combo1、List(I)Mod J=0 Then Exit For 常见 VB考试题型 End If Next J If Val(Combo1、List(I)=J Then List1、AddItem Combo1、

46、List(I)N1=N1+1 Else List2、AddItem Combo1、List(I)N2=N2+1 End If Next I Label1、Caption=素数个数&N1 Label2、Caption=非素数个数&N2 End Sub Private Sub Form_Load()Randomize Dim I For I=1 To 100 Combo1、AddItem Int(98*Rnd+3)Next I End Sub 62:Dim a(10)As Integer Private Sub Command1_Click()Randomize For i=1 To 10 a(i

47、)=Int(100*Rnd+1)List1、AddItem a(i)Next i End Sub Private Sub Command2_Click()For i=1 To 9 For j=i+1 To 10 If a(i)a(j)Then t=a(i):a(i)=a(j):a(j)=t End If Next j 常见 VB考试题型 Next i For i=1 To 10 List2、AddItem a(i)Next i End Sub Private Sub Command3_Click()List1、Clear List2、Clear End Sub 63:用滚动条设置文本框中文本的

48、字号 Private Sub HScroll1_Change()Text1、FontSize=HScroll1、Value Label2、Caption=字号为:&HScroll1、Value End Sub Private Sub HScroll1_Scroll()Text1、FontSize=HScroll1、Value Label2、Caption=字号为:&HScroll1、Value End Sub 64:用滚动条改变图片的高度与宽度 Option Explicit Private Sub HScroll1_Change()Image1、Width=HScroll1、Value En

49、d Sub Private Sub HScroll1_Scroll()Image1、Width=HScroll1、Value End Sub Private Sub VScroll1_Change()Image1、Height=VScroll1、Value End Sub Private Sub VScroll1_Scroll()Image1、Height=VScroll1、Value End Sub 65:设计可显示系统时间的时钟。Option Explicit Private Sub Command1_Click()Timer1、Enabled=True End Sub Private S

50、ub Command2_Click()Timer1、Enabled=False End Sub Private Sub Timer1_Timer()Label1、Caption=Time()Label1、Visible=Not Label1、Visible End Sub 常见 VB考试题型 66:设计一倒计时时钟 Option Explicit Private Sub Command1_Click()Timer1、Enabled=True End Sub Private Sub Command2_Click()End End Sub Private Sub Timer1_Timer()Bee