题库 题库

【简答题】

试题五
  阅读以下应用说明及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

相关试题