首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 在名称为Form1的窗体上画一个文本框,其名称为Text1,初始内容为空白;再画一个水平滚动条,其名称为HS1,SmallChange属性为4,LargeChange属性为
请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 在名称为Form1的窗体上画一个文本框,其名称为Text1,初始内容为空白;再画一个水平滚动条,其名称为HS1,SmallChange属性为4,LargeChange属性为
admin
2016-01-31
111
问题
请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。
在名称为Form1的窗体上画一个文本框,其名称为Text1,初始内容为空白;再画一个水平滚动条,其名称为HS1,SmallChange属性为4,LargeChange属性为10,Min属性为0,Max属性为200,编写适当的事件过程。程序运行后,如果在文本框内输入一个数值(0~200),然后单击窗体,则把滚动条的滚动框移到相应的位置,如图3-7所示。
注意:程序中不要使用变量:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
审题分析 要在程序运行时,单击窗体就能将滚动条的滑块位置定位到文本框中输入的值,只需要编写窗体的单击事件,令滚动条的Value属性值等于文本框的Text属性值。 操作步骤 步骤1:新建“标准EXE”工程,往窗体Form1中加入一个文本框和一个水平滚动条,分别设置它们的相关属性,属性及其值如表4-4所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Form_Click() HS1.Value=Val(Text1.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 滚动条。
解析
转载请注明原文地址:https://kaotiyun.com/show/suLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在Windows95/98下,使用VisualBasic6.0至少需要______的内存。
假定有一个名为pic2.gif的图形文件,要在运行期间把该文件装入一个图片框(Picturel),应执行的语句是______。
假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,计算机将发出()beep声。SubTimer1_Timer()Fori=1to10BeepNextiEn
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:PrivateSubCommandl_Click()DimiAsInteger,jAsIntegerDima(10,10)AsInteger
只能用来显示字符信息的控件是()。
下列程序弹山对话框中按钮的个数为______。MsgBox"确认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示"
Sub过程与Function过程最根本的区别是()。
结构化程序设计的3种基本结构是()。
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。SubPR()RandomizeDima(10)Fori=1To10a(i)=Int([])If
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum=iNextiText1.T
随机试题
下列有关纤连蛋白的叙述,错误的是
脊髓腔穿刺术后的患者可因脑压过低引起头痛,其主要机制是
根据牛腿的裂缝控制要求,牛腿的高度与下列( )项数值最为接近。若截面的有效高度h0=810mm,则纵向受拉钢筋的截面面积与下列( )项数值最为接近。
下列施工现场防止噪声污染的措施中,最根本的措施是()。
在导游的职业行为规范中,()是各国伦理道德的核心,是导游人员必备的情操修养,也是合格导游人员的首要条件。
教学过程是教师有目的、有计划地引导学生掌握科学文化基础知识和基本技能,逐步养成辩证唯物主义世界观和共产主义道德品质的过程。这一观点属于()。
影响教师职业发展时间进程和质量水平的主要因素是()
关于个人与环境的关系,社会工作的专业观点认为()。
一个好的学者,要么具有很好的学术天赋,要么是经过了长期不懈的后天努力。金灵先生终身致力于学术研究,那么()
下面程序运行后,单击命令按钮,输出的结果是【】PrivateSubCommand1_Click()Dima%(1To4),b%(2To6),i%,str1#,str2#Fori=1To4a(i)=iNe
最新回复
(
0
)