vb操作题.docx
- 文档编号:11770541
- 上传时间:2023-04-01
- 格式:DOCX
- 页数:15
- 大小:536.17KB
vb操作题.docx
《vb操作题.docx》由会员分享,可在线阅读,更多相关《vb操作题.docx(15页珍藏版)》请在冰豆网上搜索。
vb操作题
代码:
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
Label1="我的母语是汉语"
EndIf
IfOption2.Value=TrueThen
Label1="我的母语是英语"
EndIf
IfOption3.Value=TrueThen
Label1="我的母语是日语"
EndIf
EndSub
代码:
PrivateSubCommand1_Click()
Form1.Print"show"
EndSub
PrivateSubForm_Click()
Form1.Cls
EndSub
代码:
PrivateSubCommand1_Click()
IfCheck1.Value=0Then
IfCheck2.Value=0Then
Text1.Text="我选的课程是"
Else
Text1.Text="我选的课程是高等数学"
EndIf
EndIf
IfCheck1.Value=1Then
IfCheck2.Value=0Then
Text1.Text="我选的课程是物理"
Else
Text1.Text="我选的课程是物理和高等数学"
EndIf
EndIf
EndSub
代码:
DimarrN(10)AsInteger注意这句是在通用那里的
(温馨提示:
红色是需要我们自己填补的)
PrivateSubCommand1_Click()
Dimmax,iAsInteger
max=arrN
(1)
Fori=2To10
IfarrN(i)>maxThen
max=arrN(i)
EndIf
Nexti
Print"最大值:
";max
EndSub
PrivateSubCommand2_Click()
Dimmin,iAsInteger
min=arrN
(1)
Fori=2To10
IfarrN(i) min=arrN(i) EndIf Nexti Print Print"最小值: ";min EndSub PrivateSubForm_Activate() Randomize Fori=1To10 arrN(i)=Int(Rnd*1000)+0 PrintarrN(i); Nexti EndSub 代码: PrivateSubCommand1_Click() DimaAsInteger a=Val(Text1.Text)*Val(Text2.Text) Picture1.Printa EndSub 代码: PrivateSubForm_Click() IfCheck1.Value=1AndCheck2.Value=1AndOption1.Value=TrueThen Label1="选修音乐和体育" Else IfCheck1.Value=1AndCheck2.Value=1AndOption2.Value=TrueThen Label1="不选修音乐和体育" Else IfCheck2.Value=1AndOption1.Value=TrueThen Label1="只选修音乐" Else IfCheck2.Value=1AndOption2.Value=TrueThen Label1="不选修音乐" Else IfCheck1.Value=1AndOption1.Value=TrueThen Label1="只选修体育" Else IfCheck1.Value=1AndOption2.Value=TrueThen Label1="不选修体育" EndIf EndIf EndIf EndIf EndIf EndIf EndSub 调节隐藏将按钮的属性那 改为false 代码: PrivateSubCommand1_Click() Print"计算机等级考试" EndSub PrivateSubForm_Click() Command1.Visible=True EndSub 代码: PrivateSubList1_Click() i=MsgBox("是否删除",vbYesNo) SelectCasei Case6 List1.RemoveItemIndex EndSelect EndSub 本来是这样的 填完后是这样的 代码: PrivateSubCommand1_Click() DimfileinAsString DimfileoutAsString DimnumberAsInteger DimcpAsInteger DimlpAsInteger DimothersAsInteger DimtringAsString number=0 cp=0 lp=0 others=0 filein=App.Path&"\inzhyy22.txt" fileout=App.Path&"\outzhyy22.txt" OpenfileinForInputAs#1 OpenfileoutForOutputAs#2 Input#1,tring strlench=Len(tring) Fori=1Tostrlench ch=Mid(tring,i,1) IfAsc(ch)>=48AndAsc(ch)<=57Then number=number+1 ElseIfAsc(ch)>=65AndAsc(ch)<=90Then cp=cp+1 ElseIfAsc(ch)>=97AndAsc(ch)<=122Then lp=lp+1 Else others=others+1 EndIf Nexti Text1.Text=cp Text2.Text=lp Text3.Text=number Text4.Text=others Print#2,"大写字符个数: ";cp&"小写字符个数: ";lp&"数字: ";number&"其他字符: ";others Close#2 Command1.Caption="完成" Command1.Enabled=False EndSub PrivateSubCommand2_Click() End EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 操作