VB上机考试习题以及答案Word文件下载.docx
《VB上机考试习题以及答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB上机考试习题以及答案Word文件下载.docx（13页珍藏版）》请在冰豆网上搜索。
IfButton=2Then
Label1.Caption=X&
"
"
&
Y
EndIf
4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dima（1To25）
Cls
a（i）=Int（Rnd*（99-10+1）+10）
Printa（i）;
Fori=1To25-1
Forj=1To25-i
Ifa（j）>
a（j+1）Thentmp=a（j）:
a（j）=a（j+1）:
a（j+1）=tmp
5、利用随机函数产生50个[1,6]之间的整数,分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
Dima（1To6）
Fori=1To6
a（i）=0
Forj=1To50
x=Int（Rnd*（6-1+1）+1）
a（x）=a（x）+1
Nextj
Printi&
出现了"
a（i）;
次"
6、在文本框中输入一些英语单词，统计空格的个数。
Dimn%,xAsString,s%
n=Len（Text1.Text）
x=Text1.Text
Fori=1Ton
IfMid（x,i,1）="
Thens=s+1
Print"
共出现了"
s&
个空格"
7、编程计算下列公式的值，其中n（<
10）为从键盘输入的正整数。
S=1!
+3!
+5!
+……+（2*n-1）!
PrivateSubForm_Click（）
n=Val（InputBox（"
请输入一个不大于10的整数"
））
s=0
Fori=1To2*n-1Step2
p=1
Forj=1Toi
p=p*j
s=s+p
Prints
8、编程计算下列公式的值，其中n（<
S=2!
+4!
+6!
+……+（2*n）!
Fori=2To2*nStep2
9、用For…Next语句编程，双击窗体后，在屏幕上显示如图：
a=0
Fori=1To3
PrintTab（8-2*i-1）;
Forj=1To2*i-1
a=a+1
PrintStr（a）;
10、用For…Next语句编程，双击窗体后，在屏幕上显示如图：
PrivateSubForm_DblClick（）
PrintTab（11-3*i）;
Forj=2To10Step2
Printj;
11、用For…Next语句编程，双击窗体后，在屏幕上显示如图：
x=2*i+1
PrintTab（10-3*i）;
Printx;
12、从文本框输入一个正整数，判断该数是否为素数。
DimaAsLong
a=Val（Text1.Text）
Ifa=2Then
Tag=True
ElseIfaMod2=0Then
Tag=False
Else
Fori=3ToSqr（a）Step2
IfaModi=0ThenTag=False:
ExitFor
Nexti
IfTag=TrueThen
是素数"
不是素数"
13、利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。
OptionExplicit
Dimi%,max%,loc%
Dima（1To10）AsInteger
Form1.Cls
Fori=1To10
a（i）=Int（Rnd*（999-100+1）+100）
Printa（i）
max=a
（1）:
loc=1'
变量赋值，假设a
（1）为最大数
Fori=2To10
Ifa（i）>
maxThenmax=a（i）:
loc=i
最大的数是"
;
max
在数组中是第"
loc;
个数"
14、利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。
Dimi%,min%,loc%
a（i）=Int（Rnd*（9999-1000+1）+1000）
min=9999
Ifa（i）<
minThenmin=a（i）:
最小的数是"
min
15、当按下鼠标左键时，窗体的背景色变为红色；
松开鼠标左键时，窗体的背景色变为绿色。
IfButton=1ThenForm1.BackColor=vbRed
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=1ThenForm1.BackColor=vbGreen
16、编制一个时钟程序，如下图
：
Label1.BackColor=vbWhite
Timer1.Enabled=True
Timer1.Interval=1000
PrivateSubTimer1_Timer（）
Label1.Caption=Time
17、从键盘输入10个数，按输入的顺序和按输入顺序相反的顺序输出。
Dimi%
Dima（1To10）AsSingle
a（i）=Val（InputBox（"
请输入第"
i&
Fori=10To1Step-1
18、计算圆面积的程序。
程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面积。
Dimr%,aAsSingle
ConstpiAsSingle=3.14159
r=Val（InputBox（"
请输入圆半径"
vbCrLf&
（1-9）：
"
"
输入"
5））
a=pi*r^2
半径为"
r;
的圆面积为"
a
19、编写一个时钟程序，当选择“24小时”时，以24小时的方式显示如A，当选择“12小时”时，以12小时的方式显示如B。
SelectCaseTrue
CaseOption1.Value
Label1.Caption=Time
CaseOption2.Value
Label1.Caption=Format（Time,"
HH:
MM:
SSAM/PM"
）
EndSelect
20、设计一个程序，用户界面如图所示。
程序运行后，用户在文本框中输入一段文字，然后按需要单击选择框，用以改变文本的字体、字型、颜色以及大小。
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Text1.FontName="
黑体"
宋体"
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
Text1.FontUnderline=True
Text1.FontUnderline=False
PrivateSubCheck3_Click（）
IfCheck3.Value=1Then
Text1.FontSize=20
Text1.FontSize=9
PrivateSubCheck4_Click（）
IfCheck4.Value=1Then
Text1.ForeColor=vbGreen
Text1.ForeColor=vbBlack
PrivateSubCommand1_Click（）
Text1.Text="
PrivateSubCommand2_Click（）
End
20做出2个周期的正弦波形.PrivateSubForm_Click（）
Dimi%,x#,y#
ConstpiAsString=3.1415926
Form1.Scale（-2*pi,1.2）-（2*pi,-1.2）
Form1.Line（-2*pi,0）-（2*pi,0）
Form1.Line（0,1.2）-（0,-1.2）
Forx=-2*piTo2*piStep0.01
y=Sin（x）
Form1.PSet（x,y）
Nextx
21以窗体为中心,产生1000个半径颜色随机的同心圆.
Fori=1To1000
x=Form1.ScaleWidth/2
y=Form1.ScaleHeight/2
r=Int（Rnd*y）
c=RGB（255*Rnd,255*Rnd,255*Rnd）
Form1.Circle（x,y）,r,c
Next
22.九九乘法表
Dimi%,j%
Form1.Caption="
九九乘法表"
PrintTab（48）;
Caption
-------------"
Fori=1To9
PrintTab（（j-1）*12+1）;
i;
*"
j;
="
i*j;
23求最大公约数和最小公倍数
PrivateSubcommand1_Click（）
Dimm%,n%,r%,t%
m=Val（Text1.Text）
n=Val（Text2.Text）
Ifm<
nThent=m:
m=n:
n=t
t=m*n
Do
r=mModn
m=n
n=r
LoopUntilr=0
Text3.Caption="
公约数:
m
Text4.Caption="
公倍数"
t/m
24.用随机函数产生50个两位数,保存于一个一维数组中,要求找出其中的最大值,最小值及所在位置.
升级会员 