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

admin2009-02-15  34

问题 阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。
【应用说明5.1】
   本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时,用户从Combo1的列表中进行选择,程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。
  【程序代码5.1】
    Private Sub Combo1_Click()
       Txt1.Text = Combo1.  (1)  
       Txt2.Text = Combo1.  (2)  
   End Sub
    (注:可供(2)处选择的选项:List, Index, Listlndex, ListCount, Number)
   【应用说明5.2】
   本应用程序的运行窗口如图2所示。

开发该应用的部分程序代码如下:
  【程序代码5.2】
    Private Sub CmbOp_Click()
     Dim Dataln As Double,DataOut as Double
     Dataln=(3)  
     Select Case  (4)  
     Case "取整数部分"
       DataOut =Int(Dataln)
     Case "求平方根"
       If Dataln<0 Then
         MagBox "负数不能开平方!"
       Else
         DataOut = Sqr(Dataln)
       End If
    Case "取绝对值"
       DataOut = Abs(Dataln)
     (5)  
    TxtOut. Text = str $ (DataOut)
   End Sub

选项

答案(1)Text (2)Listlndex (3)Val(Txtln.Text)或Txtln.Text (4)CmbOp.Text (5) End Select

解析 (1)组合框的Text属性用于取得文本。(2)组合框的Listlndex属性用于取得选中的项的编号。(3)此处的Val(Txtln.Text)或 Txtln.Text能够取得用户的输入。(4)此处以组合框的当前值做为分支依据。(5)此处是分支语句结束,应当填结束标志。
转载请注明原文地址:https://jikaoti.com/ti/pvW7FFFM
0

最新回复(0)