河大VB题库.docx
- 文档编号:3969137
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:22
- 大小:3.30MB
河大VB题库.docx
《河大VB题库.docx》由会员分享,可在线阅读,更多相关《河大VB题库.docx(22页珍藏版)》请在冰豆网上搜索。
河大VB题库
照片名称:
01
照片描述:
01①
PrivateSubCommand1_Click()
'①
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
'②
Timer1.Enabled=False
EndSub
PrivateSubForm_Load()
'Timer1.Interval=③
Timer1.Interval=200
EndSub
PrivateSubTimer1_Timer()
'要求考生编写代码
'IfText1.Top>④Then
IfText1.Top>-Text1.HeightThen
Text1.Top=Text1.Top-200
Else
'Text1.Top=⑤
Text1.Top=Height
EndIf
EndSub
PrivateSubCommand1_Click()
IfOp1.Value=TrueThen
Label1.FontName="隶书"
Else
Label1.FontName="黑体"
EndIf
IfCh1.Value=TrueThen
Label1.FontStrikethru=True
Else
Label1.FontStrikethru=False
EndIf
IfCh2.Value=TrueThen
Label1.FontUnderline=True
Else
Label1.FontUnderline=False
EndIf
EndSub
(OK)
03题
PrivateSubHScroll1_Change()
Label1.FontSize=HScroll1.Value
(OK)
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
Label1.FontSize=Int(11*Rnd+10)
EndSub
ndSub
PrivateSub求和_Click()
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
EndSub
PrivateSub求积_Click()
Text3.Text=Text1.Text*Text2.Text
EndSub
(OK)
5
PrivateSubmDspDate_Click()
Caption=Date
EndSub
PrivateSubmDspTime_Click()
Caption=Time
EndSub
PrivateSubmEnd_Click()
End
EndSub
PrivateSubCommand1_Click()
'①
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
'If②Then
IfTimer1.Enabled=TrueThen
Timer1.Enabled=False
Command2.Caption="继续"
Else
Timer1.Enabled=True
Command2.Caption="暂停"
EndIf
EndSub
PrivateSubTimer1_Timer()
StaticnAsInteger
'n=③
n=n+1
Ifn<=Len(Caption)Then
'Label1.Caption=④
Label1.Caption=Right(Caption,n)
Else
n=0
'⑤
EndIf
EndSub
07题
PrivateSubmFalse_Click()
mEnd.Enabled=False
EndSub
PrivateSubmTrue_Click()
mEnd.Enabled=True
EndSub
(OK)
DimX(1To10)AsInteger
'考生注意:
请去掉程序中的注释符,把程序中的
'编号①~⑤改为正确的内容
PrivateSubCommand1_Click()
DimMinAsInteger
Min=X
(1)
Fori=1To10
'If①Then
IfMin>=X(i)Then
'Min=②
Min=X(i)
'③
EndIf
Nexti
Text1.Text=Min
EndSub
PrivateSubCommand2_Click()
DimSumAsInteger
Fori=1To10
'Sum=④
Sum=X(i)+Sum
Nexti
Text1.Text=Sum
'⑤="求和成功"
Caption="求和成功"
EndSub
PrivateSubForm_Load()
Me.Show
Fori=1To10
X(i)=Fix(Rnd*90)+10
'PrintX(i);
Nexti
EndSub
09题
PrivateSubCommand1_Click()
Text1.Text=List1.Text
EndSub
PrivateSubForm_Load()
Text1.Text=List1.ListCount
EndSub
(OK)
PrivateSubCommand1_Click()
'Fori=0To①
Fori=0ToCombo1.ListCount-1
'IfCombo1.Text=②Then
IfCombo1.Text=Combo1.List(i)Then
MsgBox"该学号存在,请重新输入"
ExitFor
EndIf
Next
'Ifi=③Then
Ifi=Combo1.ListCountThen
'Combo1.AddItem④
Combo1.AddItem(Combo1.Text)
EndIf
EndSub
PrivateSubCommand2_Click()
'Combo1.RemoveItem⑤
Combo1.RemoveItem(ListIndex)
EndSub
PrivateSubForm_Load()
Combo1.AddItem"0701"
EndSub
11题
PrivateSubText1_Change()
List1.AddItemText1.Text,0
EndSub
(OK)
PrivateSubCommand1_Click()
IfOption1.Value=TrueThen
Text1.Text=8!
EndIf
EndSub
PrivateSubCommand2_Click()
Open"D:
\out.txt"ForOutputAs#1
Print#1,8!
EndSub
(半会)
13题
PrivateSubmCls_Click()
Text1.Text=""
EndSub
PrivateSubmEnd_Click()
End
EndSub
PrivateSubmUniv_Click()
Text1.Text="河南大学"
EndSub
(OK)
14题
PrivateSubCombo1_click()
File1.Pattern=IIf(Combo1.ListIndex=0,"*.COM","*.EXE")
EndSub
PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
EndSub
15题
PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger,xAsInteger
'Open"c:
\data.dat"①As#1
Open"c:
\data.dat"ForRandomAs#1
Fori=1To30
'②
Get#1,i,x
Text1.Text=Text1.Text&""&x
n=n+1
'If③Then
Ifn=6Then
'Text1.Text=Text1.Text+④'文本框换行
Text1.Text=Text1.Text+vbNewLine
n=0
EndIf
Next
Close#1
EndSub
PrivateSubCommand2_Click()
'⑤
End
EndSub
PrivateSubForm_Load()
DimiAsInteger,xAsInteger
Open"c:
\data.dat"ForRandomAs#1
Fori=1To30
x=Fix(90*Rnd)+10
Put#1,i,x
Next
Close#1
EndSub
1616题
PrivateSubOption1_Click()
Text1.Text=Option1.Caption
EndSub
PrivateSubOption2_Click()
Text1.Text=Option2.Caption
EndSub
18题
PrivateSubCommand1_Click()
Text1.Text=List1.Text
EndSub
PrivateSubCommand2_Click()
List1.RemoveItemList1.ListIndex
EndSub
PrivateSubForm_Load()
Text1.Text=List1.ListCount
EndSub
(OK)
照片描述:
1919题
PrivateSubCombo1_Click()
List1.AddItemCombo1.Text
EndSub
PrivateSubCombo1_DblClick()
Combo1.RemoveItemCombo1.ListIndex
EndSub
(OK)
照片名称:
20
照片描述:
20
20题
PrivateSubPicture1_Click()
Picture1.PrintText1.Text
EndSub
(OK)
照片描述:
2121
PrivateSubmnuExit_Click()
'①
End
EndSub
PrivateSubmnuJCH_Click()'求阶乘
'②
s=1
'Fori=1To③
Fori=1ToList1.Text
's=④
s=s*i
PrivateSubmnuSum_Click()'求累加
's=⑤
s=s+i
Nexti
照片名称:
22
照片描述:
22题22
PrivateSubCommand1_Click()
Text2.Text=Text1.Text
EndSub
DimsAsString
'考生注意:
请去掉程序中的注释符,把程序中的
'编号①~⑤改为正确的内容
PrivateSubmnu_Exit_Click()
'①
End
EndSub
PrivateSubmnu_Nixu_Click()
s=""
'Fori=1To②
Fori=1ToLen(Text1.Text)
's=③+s
s=Mid(Text1.Text,i,1)+s
'④
Nexti
Label1.Caption=s
'⑤
s=""
EndSub
2424题
PrivateSubCommand1_Click()
BackColor=vbBlue
EndSub
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13ThenBackColor=vbBlue
EndSub
2525题
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
Label1.FontSize=Int(11*Rnd+10)
EndSub
(OK)
26
26题
PrivateSubmDisp_Click()
Timer1.Enabled=True
EndSub
PrivateSubmEnd_Click()
End
EndSub
PrivateSubmStop_Click()
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Text1.Text=Time
EndSub
(OK)
2727题
PrivateSubHScroll1_Scroll()
Shape1.BackColor=QBColor(HScroll1.Value)
EndSub
2828题
PrivateSubHScroll1_Scroll()
Label1.Caption=HScroll1.Value
EndSub
(OK)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 题库