[试题]

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

E.nd Sub(注:可供(2)处选择的选项:List, Index, Listlndex, ListCount, Number)

(应用说明5.2)

本应用程序的运行窗口如图2所示。

开发该应用的部分程序代码如下:

(程序代码5.2)

Private Sub CmbOp_Click()

D.im Dataln As Double,DataOut as Double

D.ataln=(3)

Select Case (4)

C.ase "取整数部分"

D.ataOut =Int(Dataln)

C.ase "求平方根"

If Dataln<0 Then

MagBox "负数不能开平方!"

E.lse

D.ataOut = Sqr(Dataln)

E.nd If

C.ase "取绝对值"

D.ataOut = Abs(Dataln)(5)

TxtOut. Text = str $ (DataOut)

E.nd Sub

参考答案与解析:

相关试题

阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对