问答题
在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有“?”的地方添入正确的内容，然后删除“?”及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：在窗体上画一个名称为Text1的文本框和两个命令按钮，其名称分别为Command1和Command2、标题分别为“大写A”和“小写a”。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。
程序运行时的窗体界面如下图所示。
本题描述如下：在窗体上画一个名称为Text1的文本框和两个命令按钮，其名称分别为Command1和Command2、标题分别为“大写A”和“小写a”。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。
程序运行时的窗体界面如下图所示。
【正确答案】本题主要考查考生对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
单击
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
单击
【答案解析】