2. 计算机
  3. 阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。 本应用程序的窗体中有一个下拉式列表框(名称为Combol)和两个文本框(名称分别为Txt_ Content和Txt_Index)。运行时，用户从Combol的列

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。 本应用程序的窗体中有一个下拉式列表框(名称为Combol)和两个文本框(名称分别为Txt_ Content和Txt_Index)。运行时，用户从Combol的列

admin2009-05-15  38
问题 阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
   本应用程序的窗体中有一个下拉式列表框(名称为Combol)和两个文本框(名称分别为Txt_ Content和Txt_Index)。运行时，用户从Combol的列表中进行选择，程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt_Content和Txt_Index中显示出来。
   【程序代码5.1】
   Private Sub Combol_Click()
   Txt_Content．    Text=Combol．  (1)  
   Txt_Index．    Text=Combol．  (2)  
   End Sub
   (注：可供(2)处选择的选项：Number，List，Index，ListIndex，ListCount)
   【应用说明5.2】
   本应用程序的运行窗口如下图所示。
      
   当用户在输入框(名为Txt_Input)中输入数值数据，并从下拉式列表框(名为CmbOp)中选择所需的运算后。输出框(名为Txt_Output)中就会显示运算的结果。用户单击“清除”按钮(名为 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
                   MagBox "负数不能开平方!"
               Else
                   DataOut = sqr(DataIn)
               End If
           Case "取绝对值"
               DataOut = Abs(DataIn)02502
             (5)  
       Txt_Output．Text=str $(DataOut)
   End Sub
选项
答案(4)CmbOp．Text
解析 此处以组合框的当前值做为分支依据。
转载请注明原文地址:https://www.kaotiyun.com/show/n5jZ777K
本试题收录于： 程序员上午基础知识考试题库软考初级分类
0

程序员上午基础知识考试

软考初级

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