《[考试复习题库精编合集]二级VB上机题库5.docx》由会员分享,可在线阅读,更多相关《[考试复习题库精编合集]二级VB上机题库5.docx(3页珍藏版)》请在三一文库上搜索。
1、考试复习题库精编合集二级VB上机题库5考试复习题库精编合集二级VB上机题库51、【简答题】10分解析:PrivateSubHScroll1_Change()Text1=HScroll1EndSubVERSION5#BeginVB.FormForm1Caption=Form1ClientHeight=1935ClientLeft=60ClientTop=345ClientWidth=4380LinkTopic=Form1ScaleHeight=1935ScaleWidth=4380StartUpPosition=3窗口缺省BeginVB.TextBoxText1Height=375Left=15
2、60TabIndex=1Top=360Width=1335EndBeginVB.HScrollBarHScroll1Height=375LargeChange=50Left=480Max=1500Min=1000SmallChange=2TabIndex=0Top=1080Value=1000Width=3375EndEndPrivateSubHScroll1_Change()Text1=HScroll1EndSub2、【简答题】PrivateTypePalInfoNameAsString*8TelAsString*10PostAsLongEndTypeDimpalAsPalInfoPriva
3、teSubCommand2_Click()ch$=Fork=1ToLen(Text1.Text)C$=Mid$(Text1.Text,k,1)IfC$=0AndC$=aAndC$=AAndC$ThenText1.FontName=?ElseMsgBox请选择字体,EndIfEndSub10分解析:PrivateSubHScroll1_Change()Text1.FontSize=HScroll1.ValueIfList1.TextThenText1.FontName=List1.TextElseMsgBox请选择字体,EndIfEndSub8、【简答题】PrivateSubCommand1_C
4、lick()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfVal(?)=0ThenText1.Text=Timer1.?=FalseText1.?ElseText1.Text=Str(Val(Text1.Text)-1)EndIfEndSub10分解析:PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfVal(Text1.Text)=0ThenText1.Text=Timer1.Enabled=FalseText1.SetFocusElseText1.Text=Str(Val(Text1.Text)-1)EndIfEndSub9、【简答题】10分解析:PrivateSubHScroll1_Change()Label1.Left=Me.HScroll1EndSubPrivateSubHScroll1_Scroll()Label1.Left=Form1.HScroll1EndSub 3 / 3