VB上机考试练习题.docx
《VB上机考试练习题.docx》由会员分享，可在线阅读，更多相关《VB上机考试练习题.docx（16页珍藏版）》请在冰豆网上搜索。
VB上机考试练习题
1、利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
Dima（5,5）AsInteger
Print"输出该矩阵:
"
Fori=1To5
Forj=1To5
a（i,j）=Int（Rnd*900+100）
Printa（i,j）;
Nextj
Print
Nexti
EndSub
2、利用随机函数产生25个10到99之间的整数，求其平均值（要求保留3位小数，第4位四舍五入）。
PrivateSubForm_Click（）
DimiAsInteger
Dima（1To25）AsInteger
s=0
Fori=1To25
x=Int（Rnd*90+10）
Printx;
IfiMod10=0ThenPrint
s=s+x
Nexti
ave=s/25
ave=Format（ave,"#.000"）
Print"平均值为:
";ave
EndSub
3、在窗体上按上鼠标的右键，记录其的坐标。
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
Label2.Caption=X&","&Y
EndIf
EndSub
4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
PrivateSubForm_Click（）
DimiAsInteger
Dima（1To25）AsInteger
Fori=1To25
a（i）=Int（Rnd*90+10）
Printa（i）;
IfiMod10=0ThenPrint
Nexti
Fori=1To24
Forj=i+1To25
Ifa（i）>a（j）Then
tmp=a（i）:
a（i）=a（j）:
a（j）=tmp
EndIf
Nextj
Nexti
Print
Print"从小到大排序为：
";
Print
Fori=1To25
Printa（i）;
IfiMod10=0ThenPrint
Nexti
Print
EndSub
5、利用随机函数产生50个[1,6]之间的整数,分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
PrivateSubForm_Click（）
DimiAsInteger
Dima（1To50）AsInteger
Fori=1To50
a（i）=Int（Rnd*6+1）
Printa（i）;
IfiMod10=0ThenPrint
Nexti
Fori=1To50
s=a（i）
Forj=1ToLen（s）
s1=Mid（s,j,1）
SelectCases1
Case"1"
n1=n1+1
Case"2"
n2=n2+1
Case"3"
n3=n3+1
Case"4"
n4=n4+1
Case"5"
n5=n5+1
Case"6"
n6=n6+1
EndSelect
Nextj
Nexti
Print"1的个数是:
"&n1&"2的个数是:
"&n2_&"3的个数是:
"&n3&"4的个数是:
"&n4&"5的个数是:
"&n5&"6的个数是:
"&n6
EndSub
6、在文本框中输入一些英语单词，统计空格的个数。
Dimn%,xAsString,s%
PrivateSubForm_Click（）
n=Len（Text1.Text）
x=Text1.Text
Fori=1Ton
IfMid（x,i,1）=""Thens=s+1
Nexti
Print"共出现了"&s&"个空格"
EndSub
7、编程计算下列公式的值，其中n（<10）为从键盘输入的正整数。
S=1!
+3!
+5!
+……+（2*n-1）!
PrivateSubForm_Click（）
n=Val（InputBox（"输入正整数n（n<10）"））
Fork=1To2*n-1Step2
f=1
Form=1Tok
f=f*m
Nextm
Printm-1;"!
=";f
s=s+f
Nextk
Print"s=";s
EndSub
8、编程计算下列公式的值，其中n（<10）为从键盘输入的正整数。
S=2!
+4!
+6!
+……+（2*n）!
PrivateSubForm_Click（）
n=Val（InputBox（"输入正整数n（n<10）"））
Fork=2To2*nStep2
f=1
Form=1Tok
f=f*m
Nextm
Printm-1;"!
=";f
s=s+f
Nextk
Print"s=";s
EndSub
9、用For…Next语句编程，双击窗体后，在屏幕上显示如图：
PrivateSubForm_DblClick（）
Dimi%,j%
x=0
Fori=1To3
Forj=1To2*i-1
x=x+1
PrintTab（7-i*3+j*3）;x;
Nextj
Print
Nexti
Print
EndSub
10、用For…Next语句编程，双击窗体后，在屏幕上显示如图：
PrivateSubForm_DblClick（）
Fori=1To3
PrintTab（11-3*i）;
Forj=2To10Step2
Printj;
Nextj
Print
Nexti
EndSub
11、
用For…Next语句编程，双击窗体后，在屏幕上显示如图：
PrivateSubForm_Click（）
Fori=1To3
x=2*i+1
PrintTab（10-3*i）;
Forj=1To5
Printx;
Nextj
Nexti
Print
EndSub
12、从文本框输入一个正整数，判断该数是否为素数。
PrivateSubCommand1_Click（）
Dimm&,i&,tAsBoolean
m=Val（Text1.Text）
t=True
Fori=2Tom-1
IfmModi=0Then
t=False
ExitFor
EndIf
Next
Ift=TrueThen
Label3.Caption=Text1.Text&"是质数"
Else
Label3.Caption=Text1.Text&"不是质数"
EndIf
EndSub
13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。
PrivateSubForm_Click（）
DimiAsInteger
Dima（1To10）AsInteger
DimmaxAsInteger
Fori=1To10
a（i）=Int（Rnd*900+100）
Printa（i）;
IfiMod5=0ThenPrint
Nexti
max=a
（1）
Fori=2To10
Ifa（i）>maxThenmax=a（i）
Nexti
Print
Print"最大值为:
";max
EndSub
15、当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Me.BackColor=vbRed
EndSub
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Me.BackColor=vbGreen
EndSub
16、
编制一个时钟程序，如下图：
PrivateSubForm_Click（）
Text1.Text=Time（）
EndSub
17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。
PrivateSubForm_Click（）
DimiAsInteger
Dima（1To10）AsInteger
Print"顺序显示"
Fori=1To10
a（i）=InputBox（"请输入第"&i&"个数"）
Printa（i）;
Nexti
Print
Print"反序输入"
Fori=10To1Step-1
Printa（i）;
Nexti
EndSub
18、计算圆面积的程序。
程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。
PrivateSubForm_Click（）
r=Val（InputBox（"输入圆的半径（1~9）"））
s=3.14*r^2
Print"圆的面积为:
"&s
EndSub
19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。
PrivateSubOption1_Click（）
Text1.Text=Time（）
EndSub
PrivateSubOption2_Click（）
Text1.Text=Format（Now,"hh:
nn:
ss:
am/pm"）
EndSub
20、设计一个程序，用户界面如图所示。
程序运行后，用户在文本框中输入一段文字，然后按需要单击选择框，用
以改变文本的字体、字型、颜色以及大小。
PrivateSubCheck1_Click（）
Text1.FontBold=Check1.Value
EndSub
PrivateSubCheck2_Click（）
Text1.FontUnderline=Check2.Value
EndSub
PrivateSubCheck3_Click（）
Text1.FontSize=20
EndSub
PrivateSubCheck4_Click（）
Text1.ForeColor=vbGreen
EndSub
PrivateSubCommand1_Click（）
Text1.Text=""
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Click（）
Text1.Text=Val（"请输入一段文字"）
EndSub
21.添加2标签和2文本框，运行时在第一个文本框中输入一个字符，然后按回车键，对应字符的ASCII编码值显示在第二个文本框中。
提示：
用KeyPress事件，回车键ASCII值为13
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
Text2.Text=Asc（Text1.Text）
EndIf
EndSub
22.画出如图所示的图形
PrivateSubForm_Click（）
Cls
Form1.Scale（-8,2）-（8,-2）
Line（-7.5,0）-（7.5,0）
Line（0,1.9）-（0,-1.9）
CurrentX=7.5:
CurrentY=0.2:
Print"x"
CurrentX=0.5:
CurrentY=2:
Print"y"
Fori=-1To1
Ifi<>0Then
CurrentX=0.7:
CurrentY=i+0.1:
Printi
Line（0.5,i）-（0,i）
EndIf
Nexti
CurrentX=6.283:
CurrentY=0
Forx=-6.283To6.283Step0.01
y=Sin（x）
Line-（x,y）
Nextx
EndSub
23.画出如图所示的图形
PrivateSubForm_Click（）
Dimi%
Fori=0To7
Me.FillStyle=i
Me.Circle（500+800*i,800）,400
Nexti
EndSub
24.画出如图所示的图形
PrivateSubForm_Click（）
Dimi%,x1%,y1%,x2%,y2%
Me.Scale（-50,50）-（50,-50）
Me.Line（-50,0）-（50,0）
Me.Line（0,50）-（0,-50）
Fori=1To5
x1=-50+5*i
y1=50-5*i
x2=50-5*i
y2=-50+5*i
Me.Line（x1,y1）-（x2,y2）,,B
Nexti
EndSub
25、.添加2标签和2文本框，运行时在第一个文本框中输入一个字符，然后按回车键，对应字符的ASCII编码值显示在第二个文本框中。
提示：
用KeyPress事件，回车键ASCII值为13
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
Text2.Text=Asc（Text1.Text）
EndIf
EndSub
26、运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框上
PrivateSubForm_Click（）
Dimm%
m=Val（InputBox（"请输入一个数"））
Ifm>0Then
IfmMod2=0Then
PrintMsgBox（m&"是正整数"&"并且"&m&"是偶数"）
Else
PrintMsgBox（m&"是正整数"&"但是"&m&"是奇数"）
EndIf
EndIf
Ifm<0Then
MsgBox（m&"不是正整数，因此不判断奇偶性"）
EndIf
EndSub
27、利用Inpubox函数输入2个正整数，求其最小公倍数，结果用Msgbox函数显示。
PrivateSubForm_Click（）
Dimm%,n%,r%,t%
m=Val（InputBox（"输入第一个正整数"））
n=Val（InputBox（"输入第二个正整数"））
Ifmm=n:
n=t
t=m*n
Do
r=mModn
n=r
LoopUntilr=0
PrintMsgBox（"这两个数的最小公倍数是：
"&t/m）
EndSub
28、利用双重循环，实现如图。
PrivateSubForm_Click（）
x=0
Forn=1To4
Form=1To2*n-1
x=x+3
PrintTab（16-n*5+m*5）;x;
Nextm
Print
Nextn
EndSub
升级会员 