VB上机考试习题以及答案Word文件下载.docx
- 文档编号:17335354
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:13
- 大小:70.70KB
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个两位数,保存于一个一维数组中,要求找出其中的最大值,最小值及所在位置.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB上机考试 习题以及答案 VB 上机 考试 习题 以及 答案