问答题

注意:下面出现的“”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体中建立一个名称为Cmd1,标题为“显示”的命令按钮,如图2-1所示。要求程序运行后,如果单击“显示”按钮,则执行语句Form1.Print“显示”:如果单击窗体,则执行语句 Form1.Cls。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。


(2)在名称为Form1的窗体上建立一个水平滚动条,名称为HS1,其最大值为100,最小值为0。要求程序运行后,每次移动滚动框时,都执行语句Forml.Print HSl.Value,如图2-2所示(程序中不能使用任何变量)。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。

【参考答案】

[解析]在窗体上建立好控件后,先设置控件属性,再编写事件过程。命令按钮的标题由Caption属性设置,单击命令按钮触发C......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

问答题
[解析]窗体的控件及属性已经建好,只需编写事件过程空缺的代码即可。 单选按钮和“切换”按钮的是通过它们的Caption属性来设置的,当点击“切换”时触发它的Click事件来使文本框的内容改变的。文本框的字体设置是通过它的Font属性来实现的。 解题步骤: 第一步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1_Click() If Op1 The n ’ Text1.Font = Op1. End If If Op2 Then ’ Text1.:“楷体_GB2312” End If End Sub 参考代码: Option Explicit Private Sub C1_Click() If Op1 Then ’ Text1.Font = Op1.Caption End If If Op2 Then Text1.FontName =“楷体_GB2312” End If End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 (2)[解析]在窗体上建立好控件后,先设置控件属性,再编写事件过程。 当运行程序后所弹出的对话框是由Visual Basic系统本身提供的,通过调用函数InputBox来实现,本题的主要思想是考查循环语句的应用。计算一个数值的阶乘时使用了for循环,最后调用了所给模块中的过程将结果进行保存。解题步骤: 第一步:建立界面并设置控件属性。本题用到了1个文本框和1个命令按钮,将命令按钮的Caption属性设置为“计算”, Name属性设置成Cmd1,文本框属性为默认设置。 第二步:编写程序代码。 在编写程序代码时要注意变量范围的设定,题目要求将计算结果存入Long变量中,所以把最后放入文本框内的变量设置为长整型,然后保存结果。 参考代码: Private Sub Cmd1_Click() Dim a As Integer Dim temp As Long Dim i As Integer a = Val(InputBox(“请输入”,, 12 )) temp = 1 For i =1 To Val(a) temp = temp * i Next Text1.Text = temp putdata out.txt ,Text1.Text End Sub 标准模块代码: Option Explicit Sub putdata(t_FileName As String,T_Str As Variant) Dim sFile As String sFile = & t_FileName Open App.Path & sFile For Output As # 1 Print #1,T_Str Close #1 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。