阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。
1】 本应用程序的窗体中有一个下拉式列表框(名称为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