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