【简答题】
试题五
阅读以下应用说明及Visual Basic程序代码,将应填入__(n)__处的字句写在答题纸的对应栏内。
[应用说明5.1]
本应用程序的窗体中有一个下拉式列表框(名称为Combol)和两个文本框(名称分别为Txtl和Txt2)。运行时,用户从Combol的列表中进行选择,程序就会将选中条目的内容以及编号(从0开始)分别在文本框 Txt1 和 Txt2 中显示出来。
[程序代码5.1]
Private Sub Combol_C1ick()
Txtl.Text = Combol.__(1)__
Txt2.Text = Combol.__(2)__
End Sub
(注:可供(2)处选择的选项:List,Index,Listlndex,ListCount,Number)
[应用说明5.2]
本应用程序的运行窗口如下图所示:
当用户在输入框(名为Txtln)中输入数值数据,并从下拉式列表框(名为CmbOp)中选择所需的运算后,输出框(名为TxtOut)中就会显示运算的结果。用户单击“清除”按钮(名为CmdClear)后,输入框和输出框都清空。
开发该应用的部分程序代码如下:
[程序代码5.2]
Private Sub CmbOp_Click()
Dim DataIn As Double,DataOut as Double
DataIn = __(3)__
Select Case __(4)__
Case "取整数部分"
DataOut = Int(Dataln)
Case "求平方根"
If Dataln < O Then
MsgBox$("负数不能开平方!")
Else
DataOut = Sqr(Dataln)
End If
Case "取绝对值"
DataOut = Abs(Dataln)
(TxtOut.Text = str$(DataOut)
__5)__
End Sub
参考答案
(1)Text
(2)listlndex
(3)Val(Txtln.Text) 或Txtln.Text
(4)CmbOp.Text
(5)EndSelect