计算机二级VB上机操作题i.docx
《计算机二级VB上机操作题i.docx》由会员分享，可在线阅读，更多相关《计算机二级VB上机操作题i.docx（24页珍藏版）》请在冰豆网上搜索。
计算机二级VB上机操作题i
计算机二级VB上机操作题
1、屏保
PrivateSubForm_DblClick（）
End
EndSub
PrivateSubTimer1_Timer（）
Print"*"
Form1.CurrentX=Rnd*Form1.Width
Form1.CurrentY=Rnd*Form1.Height
Form1.ForeColor=RGB（255*Rnd,255*Rnd,255*Rnd）
Form1.FontSize=Rnd*60
EndSub
2、抽奖
PrivateSubCommand1_Click（）
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubLabel1_Click（）
Label1.Caption="今天是"&Year（Now）&"年"&Month（Now）&"月"&WeekdayName（Weekday（Now））
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Int（Rnd*10）
Text2.Text=Int（Rnd*10）
Text3.Text=Int（Rnd*10）
Text4.Text=Int（Rnd*10）
Text5.Text=Int（Rnd*10）
Text6.Text=Int（Rnd*10）
Text7.Text=Int（Rnd*10）
EndSub
3、将第一个字母换成大写，其余小写
PrivateSubForm_Click（）
DimxAsString
s="miDEFSDVFGS"
PrintUCase（Mid（s,1,1））&LCase（Mid（s,2,Len（s）-1））
EndSub
4、求SIN？
=？
PrivateSubForm_Click（）
DimxAsInteger
x=Text1.Text
Text2.Text=Sin（x*3.1415926/180）
EndSub
5、09年（春）上机05
OptionExplicit
OptionBase1
PrivateSubCommand1_Click（）
DimkAsInteger,nAsInteger,num（）AsInteger,iAsInteger
Do
n=Int（Rnd*900）+100
Ifvalidate（n）Then
k=k+1
ReDimPreservenum（k）
num（k）=n
EndIf
LoopUntilk>=12
Fori=1ToUBound（num）
IfiMod4<>0Then
Text1=Text1&Str（num（i））
Else
Text1=Text1&Str（num（i））&vbCrLf
EndIf
Nexti
EndSub
PrivateFunctionvalidate（ByValnAsInteger）AsBoolean
Dimp（3）AsInteger,iAsInteger,jAsInteger,kAsInteger
Do
i=i+1
p（i）=nMod10
n=n\10
LoopUntiln<=0
Fori=1ToUBound（p）-1
Forj=i+1ToUBound（p）
Ifp（i）=p（j）Thenk=k+1
Nextj
Nexti
Ifk=1Thenvalidate=True
EndFunction
6、答题
DimresultAsInteger
DimrightqAsInteger
DimwrongqAsInteger
PrivateSubCommand1_Click（）
DimaAsInteger
DimbAsInteger
DimfAsInteger
a=Int（Rnd*10）
b=Int（Rnd*10）
f=Int（Rnd*4）+1
SelectCasef
Case1
Label1.Caption="a"&"+"&"b"&"="
result=a+b
Label1.Caption="a"&"-"&"b"&"="
result=a-b
Label1.Caption="a"&"x"&"b"&"="
result=a*b
Label1.Caption="a"&"÷"&"b"&"="
result=a/b
EndSelect
EndSub
PrivateSubCommand3_Click（）
IfVal（Text2.Text）=resultThen
Text1.Text=Label1.Caption&Text2.Text&"√"&vbCrLf
rightq=rightq+1
Else
wrongq=wrongq+1
Text1.Text=Text1.Text&Label1.Caption&Text2.Text&"×"&Chr（13）+Chr（10）
EndIf
Text4.Text=rightq
Text8.Text=wrongq
Text7.Text=rightq+wrongq
Text6.Text=Format（rightq+wrongq,"0.00%"）
EndSub
PrivateSubCommand2_Click（）
End
EndSub
7、求1到100的和
PrivateSubForm_Click（）
DimsumAsInteger
Fori=1To100
sum=sum+1
Nexti
Printsum
EndSub
8、6！
PrivateSubForm_Click（）
DimsumAsInteger
sum=1
Fori=1To6
sum=sum*i
Nexti
Printsum
EndSub
9、10！
PrivateSubForm_Click（）
DimsumAsLong
sum=1
Fori=1To10
sum=sum*i
Nexti
Printsum
EndSub
10、判断一个数是否为素数
PrivateSubForm_Click（）
DimxAsInteger
x=InputBox（""）
Fori=2Tox-1
IfxModi=0ThenExitFor
Nexti
Ifi=xThen
MsgBox"是素数"
Else
MsgBox"不是素数"
EndIf
EndSub
调用SUB过程判断一个数是否为素数
Subhe（xAsInteger）
Fori=1Tox
sum=sum+i
Nexti
Printsum
EndSub
PrivateSubCommand1_Click（）
Callhe（100）
EndSub
PrivateSubCommand2_Click（）
Callhe（50）
EndSub
PrivateSubCommand3_Click（）
Callhe（200）
EndSub
11、求100-200之间所有素数的和
PrivateSubForm_Click（）
DimsumAsInteger
Forx=100To200
Fori=2Tox-1
IfxModi=0ThenExitFor
Nexti
Ifi=xThen
sum=sum+x
EndIf
Nextx
Printsum
EndSub
12、判断100到999中的水仙花数
PrivateSubForm_Click（）
Forx=100To999
If（xMod10）^3+（x\100）^3+（x\10Mod10）^3=xThen
Printx
EndIf
Nextx
EndSub
13、输入abcde--edcba
PrivateSubForm_Click（）
DimsAsString
s=InputBox（""）
Fori=1ToLen（s）
Text1.Text=Text1.Text&Mid（s,Len（s）-i+1,1）
Nexti
EndSub
14、求一篇文章中大小写字母，以及其他字母个数
PrivateSubForm_Click（）
DimsAsString
DimdaAsInteger
DimxiaoAsInteger
DimqtAsInteger
Fori=1ToLen（s）
IfMid（s,i,1）>="a"AndMid（s,i,1）<="z"Then
xiao=xiao+1
Else
IfMid（s,i,1）>="A"AndMid（s,i,1）<="Z"Then
da=da+1
Else
qt=qt+1
EndIf
EndIf
Nexti
Print"大写字母个数"&da
Print"小写字母个数"&xiaoxie
Print"其它"&qt
EndSub
15、金字塔：
PrivateSubForm_Click（）
Fori=1To5
PrintSpace（5-i）&String（2*i-1,"*"）
Nexti
Fori=1To5
PrintSpace（i）&String（8-（2*i-1）,"*"）
Nexti
EndSub
16、九九乘法表
PrivateSubForm_Click（）
Fori=1To9
Forj=1Toi
Printi&"x"&j&"="&i*j&Space
（1）;
Nextj
Print
Nexti
EndSub
17、求两个数的最大公约数和最小公倍数
PrivateSubForm_Click（）
DimaAsInteger
DimbAsInteger
DimabAsInteger
a=InputBox（""）
b=InputBox（""）
DimrAsInteger
ab=a*b
r=aModb
DoWhiler<>0
a=b
b=r
r=aModb
Loop
Print"最大公约数"&b
Print"最小公倍数"&ab/b
EndSub
18、人口问题
PrivateSubForm_Click（）
DimnAsLong
DimpAsLong
p=1300000000
Whilep<=2000000000
p=p*（1+0.012）
n=n+1
Wend
Printn&"年后人口达到20亿"
EndSub
19、字体/颜色/
PrivateSubOption1_Click（）
Text1.FontName="黑体"
EndSub
PrivateSubOption2_Click（）
Text1.FontName="宋体"
EndSub
PrivateSubOption3_Click（）
Text1.FontName="隶书"
EndSub
PrivateSubOption4_Click（）
Text1.FontSize=20
EndSub
PrivateSubOption5_Click（）
Text1.FontSize=30
EndSub
PrivateSubOption6_Click（）
Text1.FontSize=15.75
EndSub
PrivateSubOption7_Click（）
Text1.FontBold=True
EndSub
PrivateSubOption8_Click（）
Text1.FontUnderline=True
EndSub
20、调色板
PrivateSubHScroll1_Change（）
Form1.BackColor=RGB（HScroll1.Value,HScroll2.Value,HScroll3.Value）
EndSub
PrivateSubHScroll2_Change（）
Form1.BackColor=RGB（HScroll1.Value,HScroll2.Value,HScroll3.Value）
EndSub
PrivateSubHScroll3_Change（）
Form1.BackColor=RGB（HScroll1.Value,HScroll2.Value,HScroll3.Value）
EndSub
21、图片滚动stretch：
true
DimxAsInteger
PrivateSubForm_Load（）
x=100
EndSub
PrivateSubHScroll1_Change（）
Image1.Width=HScroll1.Value
EndSub
PrivateSubTimer1_Timer（）
HScroll1.Value=HScroll1.Value+x
IfHScroll1.Value>=HScroll1.MaxThen
x=-x
EndIf
IfHScroll1.Value<=0Then
x=-x
EndIf
EndSub
22、计算圆的周长等
PrivateSubCommand1_Click（）
DimxAsSingle
DimzcAsSingle
DimmjAsSingle
DimtjAsSingle
Constpi=3.1415926
r=Text1.Text
zc=2*pi*r
mj=pi*r*r
tj=（4/3）*pi*r*r*r
Text1.Text=r
Text2.Text=zc
Text3.Text=mj
Text4.Text=tj
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text1.SetFocus
EndSub
23、开始清除退出
PrivateSubCommand1_Click（）
Label1.Caption="恶魔De诺言"
Command2.Enabled=True
Command2.SetFocus
Command1.Enabled=False
EndSub
PrivateSubCommand2_Click（）
Label1.Caption=""
Command1.Enabled=True
Command1.SetFocus
Command2.Enabled=False
EndSub
PrivateSubCommand3_Click（）
End
EndSub
24、滚动字符
PrivateSubTimer1_Timer（）
Label1.Caption=Time
Label1.Left=Label1.Left+100
IfLabel1.Left>=Form1.WidthThen
Label1.Left=-Label1.Width
EndIf
EndSub
25、随机产生100个数，以10行10列排列，求100个数的最大最小值以及平均数
OptionBase1
PrivateSubForm_Click（）
Dima（100）AsInteger
DimsumAsInteger
DimmaxAsInteger
DimminAsInteger
DimavrAsInteger/string（单精度）
Fori=1To100
a（i）=Int（Rnd*90）+10
Nexti
Fori=1To100
sum=sum+a（i）
avr=sum/100
Printa（i）;
IfiMod10=0ThenPrint
Nexti
Print"100个数的和为"&sum
Print"100个数平均数"&avr
max=a
（1）
min=a
（1）
Fori=2To100
IfmaxIfmin>a（i）Thenmin=a（i）
Nexti
Print"最大值"&max
Print"最小值"&min
Fori=1To100
Ifmax=a（i）ThenPrint"最大值在第"&i;"位"
Nexti
Endsub
Privatesubform_load（）
Randomize
Endsub
26、
12345678910
10987654321
PrivateSubForm_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=i
Printa（i）;
Nexti
DimtAsInteger
Fori=1To5
t=a（i）
a（i）=a（11-i）
a（11-i）=t
Nexti
Print
Fori=1To10
Printa（i）;
Nexti
EndSub
27、列表框
PrivateSubCommand1_Click（）
List1.AddItem"1"
List1.AddItem"2"
List1.AddItem"3"
List1.AddItem"4"
List1.AddItem"5"
List1.AddItem"6"
List1.AddItem"7"
List1.AddItem"8"
EndSub
PrivateSubCommand2_Click（）
Fori=0ToList1.ListCount-1
IfList1.Selected（i）=TrueThen
List2.AddItemList1.List（i）
EndIf
Nexti
Fori=List1.ListCount-1To0Step-1
IfList1.Selected（i）=TrueThen
List1.RemoveItemi
EndIf
Nexti
EndSub
28、
112358132134………………
PrivateSubForm_Click（）
Dima（）AsLong
DimnAsInteger
DimsumAsLong
n=InputBox（""）
ReDima（n）AsLong
a
（1）=1
a
（2）=1
Fori=3Ton
a（i）=a（i-2）+a（i-1）
Nexti
Fori=1Ton
sum=sum+a（i）
Nexti
Printsum
n=InputBox（""）
ReDimPreservea（n）AsLong
Fori=1Ton
Printa（i）;
IfiMod8=0ThenPrint
Nexti
EndSub
29、
随机产生五个数，并且将五个数字按顺序排列：
PrivateSubForm_Click（）
Dima（5）AsInteger
Fori=1To5
a（i）=Int（Rnd*10）+1
Printa（i）;
Nexti
Print
DimtAsInteger
Fori=1To4
Forj=i+1To5
Ifa（i）>a（j）Then
t=a（i）
a（i）=a（j）
a（j）=t
EndIf
Nextj
Nexti
Fori=1To5
Printa（i）;
Nexti
EndSub
30、随机产生100个数，并且将100个数字按顺序排列：
PrivateSubForm_Click（）
Dima（100）AsInteger
Fori=1To100
a（i）=Int（Rnd*90）+10
Printa（i）;
IfiMod10=0ThenPrinta（i）'成十行十列排列
Nexti
Print
DimtAsInteger
Fori=1To99
Forj=i+1To100
Ifa（i）t=a（i）
a（i）=a（j）
a（j）=t
EndIf
Nextj
Nexti
Fori=1To100
Printa（i）;
升级会员 