2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对

(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对

admin2010-07-13  23
问题 (1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框，输人要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。程序运行时的窗体界面如图5—3所示。

    注意：该程序是不完整的，请在有“?”的地方添入正确的内容，然后删除“?”及代码前的所
有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，在窗体上有一个名称为HScrolll的水平滚动条(Min为400，Max为2000)和三个名称分别为Command1、Command2和Command3、标题分别为“减200”、“显示”和“加200”的命令按钮。程序运行后，如果单击“减200”命令按钮，则滚动块向左滚动200单位；如果单击“显示”命令按钮，则显示当前滚动条的值；如果单击“加200”命令按钮，则滚动块向右滚动200单位。程序运行时效果如图5—4所示。

    注意：请在有“?”的地方正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。
选项
答案(1)本题主要考查考生对For循环、文本框内容的显示和InputBox()函数的理解。 Inpu,Box()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt[，Title][，Default])。其中．Prompt字符串为输入框上显示的提示文本；Title字符串在输入框的标题栏．i：显示；Default字符串为输入框的缺省文本。 根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl、Text属性为空，命令按钮的名称分别为Commandl和Command2、Caption属性分别为“大写A”和“小写a”。双击Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_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 Textl．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 Textl．Text=str’在Textl中显示结果 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Valtie属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围．在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。 根据题意，将一个水平滚动条控件和3个命令按钮添加到窗体中，水平滚动条的名称为HScrolll、Min属性为400、Max属性为2 000，命令按钮的名称分别为Commandl、Command2和Command3，Caption属性分别为“减200”、“显示”和“加200”。双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() If HScrolll．Value-200Value ’在窗口上显示HScrolll的当前值 End Sub Private Sub Command3_Click() If HScroll1．Value+200>HScrolll．Max Then’如果移动后大于最大值 HScrolll．Value=HScroll1．Max’则HScrolll的值为最大值 Else ’否则 HScrolll．Value=HScrolll．Value+200’HScrolll的值加200 End If End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/QJg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)