[考试复习题库精编合集]二级VB上机题库5.docx
-
资源ID:10521119
资源大小:20.03KB
全文页数:3页
- 资源格式: DOCX
下载积分:2元
快捷下载
会员登录下载
微信登录下载
微信扫一扫登录
友情提示
2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
|
[考试复习题库精编合集]二级VB上机题库5.docx
考试复习题库精编合集二级VB上机题库5考试复习题库精编合集二级VB上机题库51、【简答题】10分解析:PrivateSubHScroll1_Change()Text1=HScroll1EndSubVERSION5#BeginVB.FormForm1Caption="Form1"ClientHeight=1935ClientLeft=60ClientTop=345ClientWidth=4380LinkTopic="Form1"ScaleHeight=1935ScaleWidth=4380StartUpPosition=3窗口缺省BeginVB.TextBoxText1Height=375Left=1560TabIndex=1Top=360Width=1335EndBeginVB.HScrollBarHScroll1Height=375LargeChange=50Left=480Max=1500Min=1000SmallChange=2TabIndex=0Top=1080Value=1000Width=3375EndEndPrivateSubHScroll1_Change()Text1=HScroll1EndSub2、【简答题】PrivateTypePalInfoNameAsString*8TelAsString*10PostAsLongEndTypeDimpalAsPalInfoPrivateSubCommand2_Click()ch$=""Fork=1ToLen(Text1.Text)C$=Mid$(Text1.Text,k,1)IfC$>="0"AndC$="a"AndC$="A"AndC$""ThenText1.FontName=?ElseMsgBox"请选择字体",""EndIfEndSub10分解析:PrivateSubHScroll1_Change()Text1.FontSize=HScroll1.ValueIfList1.Text""ThenText1.FontName=List1.TextElseMsgBox"请选择字体",""EndIfEndSub8、【简答题】PrivateSubCommand1_Click()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