二、简单应用题

　　3(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有"?"的地方添入正确的内容，然后删除"?"及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

　　本题描述如下：在窗体上画一个名称为Text1的文本框和两个命令按钮，其名称分别为Command1和Command2、标题分别"大写A"和"小写a"。要求程序运行后，如果单击"大写A"命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的大写字符串A;如果单击"小写a"命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。

　　程序运行时的窗体界面如图37-3所示。

　　图37-3

　　(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，请在有"?"的地方正确内容，然后删除"?"及代码前的所有注释符(即'号)，但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。

　　本题描述如下：在窗体上有一个名称为HScroll1的水平滚动条(Min为400，Max为2000)和3个名称分别为Command1、Command2和Command3、标题分别为"减200"、"显示"和"加200"的命令按钮。程序运行后，如果单击"减200"命令按钮，则滚动块向左滚动200单位;如果单击"显示"命令按钮，则显示当前滚动条的值;如果单击"加200"命令按钮，则滚动块向右滚动200单位。程序运行时效果如图37-4所示。

　　图37-4

　　参考解析：

　　(1)本题主要考查考生对For循环、文本框内容的显示和InputBox()函数的理解。

　　InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt[,Title][,Default])。其中，Prompt字符串为输入框上显示的提示文本;Title字符串在输入框的标题栏上显示;Default字符串为输入框的缺省文本。

　　根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Text1，Text属性为空，命令按钮的名称分别为Command1和Command2\Caption属性分别为"大写A"和"小写a"。双击Command1进入代码窗口，补充后的代码如下：

　　Private Sub Command1_Click()

　　Dim a As Integer

　　Dim str As String

　　Dim i As Integer

　　a = Val(InputBox("输入个数")) '读取输入的个数

　　str = ""

　　For i = 1 To a

　　str = str + "A" '循环写入大写字母"A"

　　Next i

　　Text1.Text = str '在Text1中显示结果

　　End Sub

　　Private Sub Command2_Click()

　　Dim a As Integer

　　Dim str As String

　　Dim i As Integer

　　a = Val(InputBox("输入个数")) '读取输入的个数

　　str = ""

　　For i = 1 To a

　　str = str + "a" '循环写入大写字母"a"

　　Next i

　　Text1.Text = str '在Text1中显示结果

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　(2)滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。

　　根据题意，将一个水平滚动条控件和3个命令按钮添加到窗体中，水平滚动条的名称为HScroll1、Min属性为400、Max属性为2000，命令按钮的名称分别为Command1、Command2和Command3，Caption属性分别为"减200""显示"和"加200"。双击Command1进入代码窗口，编写如下代码：

　　Private Sub Command1_Click()

　　If HScroll1.Value - 200 < HScroll1.Min Then '如果移动后小于最小值

　　HScroll1.Value = HScroll1.Min '则HScroll1的值为最小值

　　Else '否则

　　HScroll1.Value = HScroll1.Value - 200 'HScroll1的值减200

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　Cls '先清空窗体

　　Print HScroll1.Value '在窗口上显示HScroll1的当前值

　　End Sub

　　Private Sub Command3_Click()

　　If HScroll1.Value + 200 > HScroll1.Max Then '如果移动后大于最大值

　　HScroll1.Value = HScroll1.Max '则Hscroll1的值为最大值

　　Else '否则

　　HScroll1.Value = HScroll1.Value + 200 'hscroll1的值加200

　　End If

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015计算机二级考试《VB》模拟练习题及解析汇总