注意:下面出现的“考生文件夹”均为%USER%
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为 Form1的窗体上画一个标签(名称为Label1,标题为“输入信息”)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”),如图 1所示。然后编写命令按钮的Click 事件过程。程序运行后,在文本框中输入“计算机等级考试”,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。
运行后的窗体如图 2所示。要求程序中不得使用任何变量。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个标签控件,通过其属性窗口将名称设为Label1,标题(Caption属性)设为“输入信息”。
画一个文本框控件,通过其属性窗口将名称设为Text1,文本内容(Text属性)设为空。画一个命令按钮控件,通过其属性窗口将名称设为Command1,标题(Caption属性)设为“显示”。
单击“显示”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command1_Click()
Label1.Visible = 0
Text1.Visible = 0
Print Text1.Text
End Sub
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt1.vbp、sjt1.frm、sjt1.vbw
请把这些文件复制到c:/wexam/26990001中,然后打开sjt1.vbp文件并运行。
(2)在名称为 Form1的窗体上画一个文本框(名称为Text1,Text属性为“国”,FontName属性为“黑体”)和一个水平滚动条(名称为HScroll1),如图1所示。在属性窗口中对滚动条设置如下属性:
Min 10
Max 100
LargeChange 5
SmallChange 2
编写适当的事件过程。程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小文本框中的“国”字。运行后的窗体如图 2所示。要求程序中不得使用任何变量。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个文本框控件,通过其属性窗口将名称设为Text1,文本内容(Text属性)设为“国”,点击Font属性弹出字体对话框,在字体处选择“黑体”。画一个水平滚动条控件,通过其属性窗口将名称设为HScroll1,Min属性设为10,Max属性设为100,LargeChang属性均设为5,SmallChange属性均设为2。
移动水平滚动框(即运行Change事件过程),在该Change事件过程中加入语句:
Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.Value
End Sub
参考文件:c:/wexam/26990001/hlpsys/参考答案/sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw
请把这些文件复制到c:/wexam/26990001中,然后打开sjt2.vbp文件并运行。
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。