2. 计算机
  3. 阅读以下应用说明及Visual Basic程序代码，将应真入______处的语句写在答题纸的对应栏内。 [应用说明5.1] 应用程序的窗体中有1个下拉式列表框(名称为Combol)和2个文本框(名称分别为Txt1和Txt2)。运行时，用户从Co

阅读以下应用说明及Visual Basic程序代码，将应真入______处的语句写在答题纸的对应栏内。 [应用说明5.1] 应用程序的窗体中有1个下拉式列表框(名称为Combol)和2个文本框(名称分别为Txt1和Txt2)。运行时，用户从Co

admin2007-03-10  58
问题 阅读以下应用说明及Visual Basic程序代码，将应真入______处的语句写在答题纸的对应栏内。
   [应用说明5.1]
   应用程序的窗体中有1个下拉式列表框(名称为Combol)和2个文本框(名称分别为Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。
   [程序代码5.1]
   Private Sub Combol_Click()
     Txt1，Text=Combol.  (1)  
     Txt2．Text=Combol.  (2)  
   End Sub
   (注意：可供(2)处选择的选项有List，Index，ListIndex，LisCount，Number)
   [应用说明5.2]
   本应用程序的运行窗口如图2-1所示。
   
   当用户在输入框(名为TxtIn)中输入数值数据，并从下拉式列表框(名称为CmbOp)中选择所需的运算后，输出框(名为TxtOut)中就会显示运算的结果。用户单击“清除”按钮(名为CmdClear)后，输入框和输出框都清空。
   [程序代码5.2]
   Private Sub CmbOp_Click()
     Dim DataIn As Double，DataOut as Double
     DataIn＝(3)  
     Select Case  (4)  
       Case“取整数部分”
         DataOut=Int(DataIn)
       Case“求平方根”
         If DataIn＜0 Then
             MsgBox$(“负数不能开平方!”
         Else
            DataOut=Sqr(DataIn)
         End If
       Case“取绝对值”
         DataOut=Abs(DataIn)
     (5)  
   TxtOut.Text=str$(DataOut)
End Sub
选项
答案(1)Text (2)ListIndex (3)Val(TxtIn.Text)或TxtIn.Text (4)CmbOp.Text (5)End Select
解析 组合框(Combo Box)是组合列表框和文本框的特性而成的控件。它的Text属性值是用户所选择的项目的文本或直接从编辑区输入的文本。它的ListIndex属性值为选中条目的编号。
   文本框的Text属性用来设置本框中的显示的内容。
   在VB中，情况语句的一般格式为：
   Select Case测试表达式
       Case表达式表列1
           [语句块1]
       [Case表达式表列2
           [语句块2]]
       ...
       [Case Else
           [语句块n]]
   End Select
转载请注明原文地址:https://www.kaotiyun.com/show/rzjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

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