VB上机考试练习题.docx
- 文档编号:4978985
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:16
- 大小:87.50KB
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
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"从小到大排序为:
";
Fori=1To25
Printa(i);
IfiMod10=0ThenPrint
Nexti
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
Nexti
EndSub
10、用For…Next语句编程,双击窗体后,在屏幕上显示如图:
PrivateSubForm_DblClick()
Fori=1To3
PrintTab(11-3*i);
Forj=2To10Step2
Printj;
Nextj
Nexti
EndSub
11、
用For…Next语句编程,双击窗体后,在屏幕上显示如图:
PrivateSubForm_Click()
Fori=1To3
x=2*i+1
PrintTab(10-3*i);
Forj=1To5
Printx;
Nextj
Nexti
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"最大值为:
";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"反序输入"
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("输入第二个正整数"))
Ifm m=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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 上机 考试 练习题