VB编程题.docx
《VB编程题.docx》由会员分享，可在线阅读，更多相关《VB编程题.docx（19页珍藏版）》请在冰豆网上搜索。
VB编程题
编程题
⏹PrivateSubCommand1_Click（）
⏹'''不得删除本行注释
⏹DimiAsInteger
⏹Fori=1To200
⏹IfiMod3=0AndiMod7=0Then
⏹Text1.Text=Text1.Text+Str（i）
⏹EndIf
⏹Next
⏹EndSub
⏹PrivateSubCommand1_Click（）
⏹DimaAsInteger
⏹DimbAsInteger
⏹a=Val（Text1.Text）
⏹b=Val（Text2.Text）
⏹Label1.Caption=Int（Rnd（）*（b-a+1）+a）
⏹Label2.Caption=Int（Rnd（）*（b-a+1）+a）
⏹Label3.Caption=Int（Rnd（）*（b-a+1）+a）
⏹EndSub
⏹PrivateSubCommand1_Click（）
⏹Dims
⏹Open"Bdata.txt"ForInputAs#1
⏹DoWhileNotEOF
（1）
⏹LineInput#1,s
⏹Text1.Text=Text1.Text+s&vbCrLf
⏹Loop
⏹Close#1
⏹EndSub
⏹PrivateSubCommand1_Click（）
⏹DimaAsString
⏹GetChara
⏹Text1.Text=a
⏹If48<=Asc（a）AndAsc（a）<=57Then
⏹Label1.Caption="是数字字符"
⏹ElseIf（65<=Asc（a）AndAsc（a）<90）Or（97<=Asc（a）AndAsc（a）<=122）Then
⏹Label1.Caption="是字母字符"
⏹Else
⏹Label1.Caption="是其他字符"
⏹EndIf
⏹EndSub
⏹DimaAsString
⏹PrivateSubCommand1_Click（）
⏹Text1.Text=UCase（a）
⏹EndSub
⏹PrivateSubCommand2_Click（）
⏹Text1.Text=LCase（a）
⏹EndSub
⏹PrivateSubCommand3_Click（）
⏹Text1.Text=a
⏹EndSub
⏹PrivateSubText1_KeyPress（KeyAsciiAsInteger）
⏹a=Text1.Text
⏹EndSub
⏹DimsumAsSingle
⏹Open"Jsdata.txt"ForInputAs#1
⏹Fori=1To15
⏹Input#1,Arr（i）
⏹Next
⏹Close#1
⏹IfOp1Then
⏹T1.Text=Aaa
⏹EndIf
⏹IfOp2Then
⏹T1.Text=Bbb
⏹EndIf
⏹EndSub
⏹PrivateSubcommand1_Click（）
⏹'''不得删除本行注释
⏹DimaAsInteger,bAsDouble,iAsInteger,nAsInteger
⏹n=Val（Text1.Text）
⏹a=0
⏹b=0
⏹Fori=1Ton
⏹a=a+i
⏹b=b+a
⏹Nexti
⏹Text2.Text=b
⏹EndSub
PrivateSubCommand1_Click（）
'''不得删除本行注释
Dimi%,xh$,xm$
OpenApp.Path&"\"&"Xhxm.txt"ForOutputAs#1
Fori=1To3
xh=InputBox（"请输入学号"）
xm=InputBox（"请输入姓名"）
Write#1,xh,xm
Nexti
Close#1
EndSub
⏹PrivateSubCommand2_Click（）
⏹'''不得删除本行注释
⏹Dimsasstring
⏹OpenApp.Path&"\"&"Xhxm.txt"ForInputAs#2
⏹DoWhileNotEOF
（2）
⏹LineInput#2,s
⏹Text1.Text=Text1.Text&s&vbCrLf
⏹Loop
⏹Close#2
⏹EndSub
PrivateSubCommand1_Click（）
DimnAsInteger,iAsInteger,sAsDouble
n=Val（Text1.Text）
s=0
Fori=1Ton
s=s+i^2
Nexti
Text2.Text=s
EndSub
⏹PrivateSubCommand1_Click（）
⏹'''不得删除本行注释
⏹DimiAsInteger
⏹OpenApp.Path&"\"&"yssj.txt"ForInputAs#1
⏹Fori=1To10
⏹Input#1,a（i）
⏹Nexti
⏹Close#1
⏹EndSub
⏹PrivateSubCommand2_Click（）
⏹'''不得删除本行注释
⏹DimiAsInteger
⏹Text1.Text=""
⏹Fori=1To10
⏹Ifa（i）Mod3=2Then
⏹Text1.Text=Text1.Text&Str（a（i））
⏹EndIf
⏹Nexti
⏹EndSub
PrivateSubCommand1_Click（）
‘”读取文件”按钮代码
'''不得删除本行注释
DimstAsString
Text1.Text=""
OpenApp.Path&"\"&“jmwb.txt"ForInputAs#1
WhileNotEOF
（1）
Input#1,st
Text1.Text=Text1.Text+st+vbCrLf
Wend
Close#1
PrivateSubCommand2_Click（）
DimsAsString,coAsString,cAsString,
DimnAsInteger,iAsInteger,pAsInteger
s=Trim（Text1.Text）
n=Len（s）
co=""
Fori=1Ton
c=Mid（s,i,1）
p=Asc（c）+5
co=co+Chr（p）
Nexti
Text2.Text=co
EndSub
⏹PrivateSubcommand1_click（）
⏹'''不得删除本行注释
⏹ForN=1To15
⏹x（N）=Int（Rnd*91+10）
⏹Text1.Text=Text1.Text+Str（x（N））
⏹NextN
⏹EndSub
⏹PrivateSubCommand2_Click（）
⏹'''不得删除本行注释
⏹DimmAsInteger,KAsInteger
⏹ForN=1To15
⏹Form=N+1To15
⏹Ifx（m）>x（N）Then
⏹K=x（N）
⏹x（N）=x（m）
⏹x（m）=K
⏹EndIf
⏹Nextm
⏹Text2.Text=Text2.Text+Str（x（N））
⏹NextN
⏹EndSub
PrivateSubcommand1_Click（）
'''不得删除本行注释
DimaAsInteger,bAsInteger,cAsInteger
DimmaxAsInteger,minAsInteger
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
max=a+b+Abs（a-b）
max=max/2
min=a+b-Abs（a-b）
min=min/2
max=max+c+Abs（max-c）
max=max/2
min=min+c-Abs（min-c）
min=min/2
Text4.Text=max
Text5.Text=min
EndSub
PrivateSubCommand1_Click（）
DimmAsInteger,nAsInteger,cAsDouble
m=Val（text2.Text）
n=Val（text1.Text）
IfmMsgBox（"m应大于等于n!
"）
ExitSub
EndIf
c=fact（m）/（fact（n）*fact（m-n））
text3.Text=Str（c）
EndSub
Functionfact（nAsInteger）AsDouble
DimiAsInteger,fAsDouble
f=1Fori=1Ton
f=f*i
Nexti
fact=f
EndFunction
PrivateSubCommand1_Click（）
DimaAsInteger
a=Val（Text1.Text）
If（aMod4=0AndaMod100<>0）OraMod400=0Then
Text2.Text="闰年"
Else:
Text2.Text="非闰年"
EndIf
EndSub
PrivateSubText1_Change（）
IfNotIsNumeric（Text1.Text）Then
MsgBox"请输入数字！
",48,"输入的不是数字"
Command1.Enabled=False
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len（Text1.Text）
Else:
Command1.Enabled=True
EndIf
⏹PrivateSubCommand1_Click（）
⏹'''不得删除本行注释
⏹DimnAsInteger,iAsInteger
⏹n=Val（Text1.Text）
⏹Ifn<0Or（NotIsNumeric（Text1.Text））ThenMsgBox"请输入正整数",48,"输入的不是正整数"
⏹OpenApp.Path&"\"&"jfwj.txt"ForOutputAs#1
⏹Fori=1Ton
⏹Print#1,String（i,"*"）
⏹Nexti
⏹Close#1
⏹EndSub
PrivateSubCommand1_Click（）
'''不得删除本行注释
DimaAsInteger
a=Val（Text1.Text）
Text2.Text=zh（a）
‘zh过程在原本的程序代码中已经有了～直接可用
EndSub
⏹PrivateSubCommand1_Click（）
⏹DimxAsDouble
⏹DimyAsDouble
⏹x=Val（Text1.Text）
⏹Ifx<10Then
⏹y=x-1
⏹ElseIfx<20Then
⏹y=2*x-1
⏹Else
⏹y=3*x-1
⏹EndIf
⏹Text2.Text=y
⏹EndSub
⏹PrivateSubCommand1_Click（）
⏹'''不得删除本行注释
⏹Text1.Text=""
⏹OpenApp.Path&"\"&"zfwj.txt"ForInputAs#1
⏹Fori=1To10
⏹Input#1,a（i）
⏹Text1.Text=Text1.Text&""&a（i）
⏹Nexti
⏹Close#1
⏹EndSub
⏹PrivateSubCommand2_Click（）
⏹'''不得删除本行注释
⏹DimtAsString
⏹Text2.Text=""
⏹Fori=1To10
⏹t=a（i）
⏹a（i）=a（10-i+1）
⏹a（10-i+1）=t
⏹Text2.Text=Text2.Text&""&a（i）
⏹Nexti
⏹EndSub
PrivateSubCommand1_Click（）
'''不得删改本行注释
DimnAsInteger
n=Val（Text1.Text）
Ifn<100Orn>999Then
MsgBox"请输入三位正整数",,"输入出错"
Else:
Text2.Text=Int（nMod10）
Text3.Text=Int（（nMod100）/10）
Text4.Text=Int（n/100）
EndIf
EndSub
⏹DimiAsInteger
⏹PrivateSubCommand1_Click（）
⏹Fori=1To10
⏹List1.AddItemInt（（Rnd（）*90）+10）
⏹Next
⏹EndSub
⏹PrivateSubCommand2_Click（）
⏹Fori=List1.ListCount-1To0Step-1
⏹IfList1.List（i）Mod2<>0Then
⏹List2.AddItemList1.List（i）
⏹List1.RemoveItemi
⏹EndIf
⏹Next
EndSub
PrivateSubCommand3_Click（）’清除按钮的代码
List1.Clear
List2.Clear
EndSub
PrivateSubCommand1_Click（）
‘”读入数据”按钮代码
'''不得删除本行注释
DimstAsString
Text1.Text=""
OpenApp.Path&"\"&"yy.txt"ForInputAs#1
WhileNotEOF
（1）
Input#1,st
Text1.Text=Text1.Text+st+vbCrLf
Wend
Close#1
EndSub
PrivateSubCommand2_Click（）
'''不得删除本行注释
DimxAsString,yAsString*1,nAsInteger,iAsInteger,pAsInteger
x=Trim（Text1.Text）
n=Len（x）
p=0
Fori=1Ton
y=UCase（Mid（x,i,1））
Ify>="A"Andy<="Z"Then
p=p+1
EndIf
Nexti
Label1.Caption="共"&p&"个字母"
EndSub
PrivateSubCommand1_Click（）
'''不得删除本行注释
DimnAsInteger,kAsInteger,iAsInteger
Forn=200To300
k=Int（Sqr（n））
Fori=2Tok
IfnModi=0ThenExitFor
Nexti
Ifi>kThenList1.AddItemn
Nextn
EndSub
⏹PrivateSubCommand1_Click（）
⏹'''不得删除本行注释
⏹DimiAsInteger,nAsInteger,sAsInteger
⏹n=Val（Text1.Text）
⏹Ifn<0Or（NotIsNumeric（Text1.Text））ThenMsgBox"请输入正整数",48,"输入的不是正整数"
⏹s=0
⏹Fori=1Ton
⏹IfiMod3=0Then
⏹s=s+i
⏹EndIf
⏹Nexti
⏹Text2.Text=s
⏹EndSub
升级会员 