阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码，将应填入(n)处。[应用说明]启动某应用程序运行的登录窗口如下：其中的标签(Label1)“用户名(U)”对应文本框Username，标签(Label2)“密 码(P)”对应文本框Password。当用户在Username文本框中输入用户名“ali88”，在Password文本框中输入“zmkm”(显示的字符均为“*”)，并单击“确定”按钮时，就会弹出应用程序的主窗口frmAPP，而该登录窗口就会卸载。如果用户名或密

阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入______处的语句写在答题纸的对应栏内。

[应用说明7]

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

只要用户单击“闪烁”按钮，文字“欢迎光临”就会以0.3s消失、0.3s显示反复进行闪烁；单击“停止”按钮，闪烁停止，恢复图示的初态。

[属性设置7]

[程序代码7]

Private Sub CmdF C1ick()

Timerl. (3)=True

Label.Visible=False

End Sub

Private Sub Timerl_Timer()

(4)=not Label.Visible

End Sub

Private Sub CmdT_Click()

Timerl.Enabled=(5)

Label.Vlsible=true

End Sub

●试题八

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

该应用程序是用来修改文本框中的字体属性，其运行窗口如图4所示。

窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont，chkltalic，chkSize，chkColor)组成。程序运行后，用户在文本框内输入一段文字，然后按需要单击各选择框，用以改变文本的字体、字型、颜色及大小。

文本框的Mulitine属性已经设为True。当不选择"黑体"时，文字应是"宋体"。当不选择"大小16"时，字号为9。当不选择"紫色"时，字色为黑色。当不选择"斜体"时，文字采用正常字型。

【程序代码】

Private Sub chkFont Click()

If (1) Then

txtPassage．FontName="黑体"

Else

txtPassage．FontName="宋体"

End If

End Sub

Private Sub (2) ()

If chkColor．Value=1 Then

txtPassage．ForeColor=QBColor (13)

Else

txtPassage．ForeColor=QBColor(0)

End If

End Sub

Private Sub chkltalic_Click()

If chkltalic.

Value=1 Then

txtPassage．FontI talic= (3)

Else

txtPassage．FontItalic= (4)

End If

End Sub

Private Sub chkSize_Click()

If (5) Then

txtPassage．Font．Size=16

Else

txtPassage．Font．Size=9

End If

End Sub

试题三（共 15 分）

阅读以下说明和 C 程序，将应填入 （n） 处的字句写在答题纸的对应栏内。

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

●试题五

阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入(n)处在字句写在答题纸的对应栏内。

【说明】

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

只要用户单击"闪烁"按钮，文字"欢迎光临"就会以0．3秒消失、0．3秒显示反复进行闪烁；单击"停止"按钮时，闪烁停止，恢复图示的初态。

在开发过程中，需要设置的属性如表1所示。

在开发过程中，需要编写的程序代码如下：

【程序】

Private Sub CmdF_Click()

Timer1． (3) =True

Labe1．Visible=False

End Sub

Private Sub Timer1_Timer()

(4) =not Label.Visible

End Sub

Private Sub CmdT_Click()

Timer1．Enabled= (5)

Labe1．Visible=true

End Sub