常见VB考试题型.pdf

《常见VB考试题型.pdf》由会员分享，可在线阅读，更多相关《常见VB考试题型.pdf（56页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

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

2、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 =12345 Then If =12345 Then MsgBox 登录成功,64+1,登录 Else Ms

3、gBox 密码错误,请重新输入,16 End If Else MsgBox 用户不存在,16+1,登录 End If 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(x&是小数)End If End Sub 6 书店优惠售书 Private Sub Command1_Click()Dim

4、 x As Single,y As Single x=Val Select Case x Case Is=100 y=x*Case Is=200 y=x*Case Is=300 y=x*Case Else y=x*End Select =y&元 End Sub 7 设计一个计程车收费程序 Private Sub Command1_Click()X=Val Select Case X Case Is=3 =6 Case Is=30 =6+(X-3)*Case Else =6+27*+(X-30)*2 End Select End Sub 8 输入 10 个数，输出累加之和。Private Sub

5、 Command1_Click()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 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&个数

6、)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_Click()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

7、Print s=;s End Sub 12 S=1+22+32+102，计算并输出 s Private Sub Command1_Click()s=0 For i=1 To 10 s=s+i 2 Next i 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

8、Sub 21 s=2+22+222+2222+22222+222222 Private Sub Command1_Click()Dim s As Long,s1 As Long,i 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 Inte

9、ger,n As Integer Dim s As Long,s1 As Long,i As Integer,j As Integer Cls Randomize a=Int(9*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 Lo

10、ng,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 Next i 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=s2=n=Len(Trim)F

11、or i=n To 1 Step-1 s2=s2&Mid(s1,i,1)Next i =s2 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 之间的素数 输出 Priva

12、te Sub Command1_Click()Dim n As Integer,i As Integer 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 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 Ex

13、it For End If Next i If i=n Then 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*

14、m);n m=0 Else Print Tab(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 I;End If Next I End Sub 28 陈婷的 QQ 密码是一个 5 位数。但因为

15、有一段比较长的日子没上了，陈婷把这个密码给忘了。不过陈婷的生日是 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

16、 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 For z=1 To 33 If X+Y+z=100 And *X+2*Y+3*z=100 The

17、n I=I+1 方案&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 之内的自然数对。(两数的和是某个自然数的平方，两数的差也是某数的平

18、方）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 Integer,a4 As Integer For i=1000 To

19、 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 End Sub 33 猴子吃桃子。小猴在某天摘桃若干个，当天吃掉一半多一个；第二天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第 7 天要吃时只剩下一个，问小猴共摘下了多少个桃子 Option Explicit Private Sub Command1_Click()Dim X As Integer,I As Integer X=1 For I=6 To

20、1 Step-1 X=(X+1)*2 第&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 =第&I&天能卖完.End Sub 35 一球从 10 米高空落下,每次弹起高度为落下高度的 40%,求第 8 次落下，小球经历的路程。Private Sub Command1_

21、Click()Dim s As Single,h As Single,i As Integer s=10 h=10 For i=2 To 8 h=h*s=s+h*2 Next i 球第八次落下经历的路程是：;s;米 End Sub 36 输入十个数，输出其中的最大数和最小数 Private Sub Command1_Click()Dim x As Single,i As Integer Dim max As Single,min As Single x=Val(InputBox(请输入第 1 个数)Print x max=x:min=x For i=2 To 10 x=Val(InputBox

22、(请输入第&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 End If For i=1 To x If m Mod i=0 And n Mod i=0 Then Max=i End If Next i =最大公约数是&Max End Sub Private Sub Command2_Click()Dim m As Integer,n As Integer Dim i As Integer,mas As Integer m=Val n=Val If m=n

23、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 =最小公倍数是&Min End Sub 39 统计 1100 之间能被 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

24、 Then n=n+1 End If Next i Print 能被 3 整除的数有&m&个&vbCrLf&能被 7 整除的数有&n&个 End Sub 40 统计字符串中字母“A”出现的次数(不区分大小写)Option Explicit Private Sub Command1_Click()Dim N As Integer,I As Integer,x As String N=0 x=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 =N

25、End Sub 41 统计字符串中大写字母、小写字母、数字字符的个数分别是多少 Private Sub Command1_Click()Dim N1,N2,N3,I N1=0:N2=0:N3=0 For I=1 To Len X=Mid,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 大写字母个数:;N1 小写字母个数:;N2 数字字符个数:;N3 End Sub 42 简单图形输出 Private Sub Command1_Click()Dim N As

26、 Integer,I As Integer Dim J As Integer,A As Integer N=Val For I=1 To N Tab(10-I);For J=1 To 2*I-1 Trim(Str(I);Next J Print Next I N=Val For I=1 To N Tab(15-I);For J=1 To 2*I-1 Chr(64+I);Next J Next I End Sub 43 输出一个 55 矩阵，该矩阵主对角线元素为 1，其余元素为 0。Private Sub Command1_Click()Dim a(5,5)For i=1 To 5 For j=

27、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);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)

28、=t End If 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)ReDim 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 P

29、rint 第;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 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)=

30、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 For j=1 To 5 Print Tab(j-1)*6);a(i,j);Next j Print Next i End Sub 47：出一个 55 矩阵的每行最大元素，及最大元素的下标值。该矩阵每个元素为1，100之间的随机整数。Private Sub Command1_Click()Randomize Dim a(5,5)As Integer,i As Integer,j As Integer Dim max As In

31、teger,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 48：Sub 过程和 Function 过程的创建均可采用两种方法：1、直接在代码窗口输入过程的结构语句和过程语句 Private Sub Command1_Click()m=Val n=Val mn=m

32、-n =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()=:=:=End Sub 2、通过“工具”菜单中的添加“过程”过程 1 Private Sub Command1_Click()m=Val n=Val mn=m-n Call jc(m)m=s Call jc(n)n=s Call jc(mn)mn=s =m/n/mn End Sub Private Sub jc(x)s=1 For i=1

33、To x s=s*i Print s Next i End Sub Private Sub Command2_Click()=:=:=End Sub 过程 2 Dim s Private Sub Command1_Click()m=Val n=Val mn=m-n Call jc(m)Call jc(n)Call jc(mn)mn=s =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()=:=:=End Sub 49：编写一个求三角形面积的

34、Function 过程 Option Explicit Private Sub Command1_Click()Dim A,B,C A=Val B=Val C=Val If A+B C And B+C A And A+B C Then 三角形面积:&Format(JS(A,B,C),)Else MsgBox A,B,C 不能构成三角形,请重新输入!,48,警告 =End If End Sub Private Function 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 J

35、S1(A,B,C)Dim X,S X=(A+B+C)/2 S=Sqr(X*(X-A)*(X-B)*(X-C)S End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then Else If Chr(KeyAscii)9 Or Chr(KeyAscii)9 Or Chr(KeyAscii)9 Or Chr(KeyAscii)a(j)Then t=a(i):a(i)=a(j):a(j)=t End If Next j Next i For i=1 To 10 a(i)Next i End Sub Private

36、 Sub Command3_Click()End Sub 59:Private Sub Command1_Click()Dim T If =-1 Then MsgBox 请选择,64,提示 Else If 0 Then T=-1)-1)=T =-1 End If End If End Sub Private Sub Command2_Click()Dim T If =-1 Then MsgBox 请选择,64,提示 Else If -1 Then T=+1)+1)=T =+1 =+1 End If End If End Sub Private Sub Command3_Click()If =T

37、hen MsgBox 请输入添加明星的姓名及名次,48,警告 Else If Val +1 Then MsgBox 请重新输入名次,48,警告 =Else ,-1 End If End If End Sub Private Sub Command4_Click()End Sub Private Sub Form_Load()姚明 麦迪 诺维斯基 科比 弗朗西斯 End Sub Private Sub Text2_Change()If Then =True End If End Sub 60:Option Explicit Dim N1,N2 Private Sub Command1_Click

38、()If -1 Then Dim X,I X=Val For I=2 To X-1 If X Mod I=0 Then Exit For End If Next I If X=I Then X;是素数 X N1=N1+1 =素数有&N1&个 Else X;不是素数 X N2=N2+1 =非素数有&N2&个 End If End If End Sub Private Sub Form_Load()Dim I For I=1 To 100 Int(98*Rnd+3)Next I End Sub 61:Private Sub Command1_Click()=False Dim I,J Static

39、 N1,N2 For I=0 To -1 For J=2 To Val(I)-1 If Val(I)Mod J=0 Then Exit For End If Next J If Val(I)=J Then (I)N1=N1+1 Else (I)N2=N2+1 End If Next I =素数个数&N1 =非素数个数&N2 End Sub Private Sub Form_Load()Randomize Dim I For I=1 To 100 Int(98*Rnd+3)Next I End Sub 62:Dim a(10)As Integer Private Sub Command1_Cli

40、ck()Randomize For i=1 To 10 a(i)=Int(100*Rnd+1)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 Next i For i=1 To 10 a(i)Next i End Sub Private Sub Command3_Click()End Sub 63:用滚动条设置文本框中文本的字号 Private Sub HScroll1_Change(

41、)=字号为:&End Sub Private Sub HScroll1_Scroll()=字号为:&End Sub 64:用滚动条改变图片的高度和宽度 Option Explicit Private Sub HScroll1_Change()=End Sub Private Sub HScroll1_Scroll()=End Sub Private Sub VScroll1_Change()=End Sub Private Sub VScroll1_Scroll()=End Sub 65:设计可显示系统时间的时钟。Option Explicit Private Sub Command1_Cli

42、ck()=True End Sub Private Sub Command2_Click()=False End Sub Private Sub Timer1_Timer()=Time()=Not End Sub 66:设计一倒计时时钟 Option Explicit Private Sub Command1_Click()=True End Sub Private Sub Command2_Click()End End Sub Private Sub Timer1_Timer()Beep Static t t=t+1 If 10-t 0 Then =10-t&秒!Else =发射成功!=Fa

43、lse =LoadPicture&素材)End If End Sub 67:设计一个弹球程序 Dim step Private Sub Form_Load()step=1 End Sub Private Sub Timer1_Timer()=+50*step If =-Then step=-1 Beep Else If 0 Then Beep step=1 End If End If End Sub Private Sub VScroll1_Change()=End Sub Private Sub VScroll1_Scroll()=End Sub 68:在组合框中选择形状改变形状控件的形状 Option Explicit Private Sub Combo1_Click()If =-1 Then MsgBox 请选择,48,警告 Else =End If End Sub Private Sub Form_Load()矩形 正方形 椭圆 圆 圆角矩形 圆角正方形 End Sub 69:文件操作（顺序文件）Private Sub Command1_Click()Open C:For Output As#1 Write#1,1,2,3 Close#1 Open C:For Input As#1 Input#1,x,y,z Print x,y,z Close#1 End Sub