阅读以下应用说明以及用Visual Basic编写的程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【应用4.1】
设应用程序的运行窗口内有一个文字标签（Label）以及一个框架，其中有三个复选框(chkl，chk2，chk3 )，各个复选框单击事件过程的程序代码如下：
Private Sub chkl Click（）
Label.fontBold = chkl.Value
End Sub
Private Sub chk2 Click（）
Label.fontItalic = chk2.Value
End Sub
Private Sub chk3 Click（）
Label.fontUnderLine = chk3.Value
End Sub
三个复选框chkl、chk2、chk3的功能分别是：（l ）
【应用4.2】
设应用程序的运行窗口内有两个文本框Txt 1和Txt2，其初始内容为空。在Txt 1文本框中输入一个数值，当光标离开此文本框（例如进入文本框Txt2 )时，执行的程序代码如下：
Private Sub Txtl_LostFocus（）
dim x as double
x = Val(Txtl.Text）
If x＜0 Or x＞100 Then
Txtl.Text = “ ”
MsgBox$（“请重新输入!”）
Txtl.SetFocus
Else
Txt2.Text = Txtl.Text
End If
End Sub
该程序代码的功能是：若在文本框Txt1中输入的数值小于0或大于100，当光标离开此文本框时，(2) ；否则，将其值复制到文本框Txt2中。
【应用4.3】
在下面的应用中，当窗口内发生Click事件时，窗口内将显示如图4-1所示的杨辉三角形（每一行都是三项式展开的系数）。请完善程序代码。
Private Sub Form Click（）
Dim i ， j ， c As Integer ， StrTemp As String
Dim a(9) As Integer
a(0) = 0 : a(1) = 1 : StrTemp = Str(a(1)) ＋ Space(3)
CurrentX = （ScaleWidth一TextWidth(StrTemp)）/2
Print StrTemp
For j = 2 To 9
a（j）= 1
For c = j-1 To 2 Step - 1
a（c） = （3）
Next
(4) = “”
For c = 1 To j
StrTemp = StrTemp & Str（(5)）& Space (5 - Len (Str (a (c)）））
Next
CurrentX =（ScaleWidth一TextWidth(StrTemp)）/ 2
Print StrTemp
Next
End Sub
（） 〔共15分）
阅读以下应用说明以及用Visual Basic编写的程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【应用4.1】
设应用程序的运行窗口内有一个文字标签（Label）以及一个框架，其中有三个复选框(chkl，chk2，chk3 )，各个复选框单击事件过程的程序代码如下：
Private Sub chkl Click（）
Label.fontBold = chkl.Value
End Sub
Private Sub chk2 Click（）
Label.fontItalic = chk2.Value
End Sub
Private Sub chk3 Click（）
Label.fontUnderLine = chk3.Value
End Sub
三个复选框chkl、chk2、chk3的功能分别是：（l ）
【应用4.2】
设应用程序的运行窗口内有两个文本框Txt 1和Txt2，其初始内容为空。在Txt 1文本框中输入一个数值，当光标离开此文本框（例如进入文本框Txt2 )时，执行的程序代码如下：
Private Sub Txtl_LostFocus（）
dim x as double
x = Val(Txtl.Text）
If x＜0 Or x＞100 Then
Txtl.Text = “ ”
MsgBox$（“请重新输入!”）
Txtl.SetFocus
Else
Txt2.Text = Txtl.Text
End If
End Sub
该程序代码的功能是：若在文本框Txt1中输入的数值小于0或大于100，当光标离开此文本框时，(2) ；否则，将其值复制到文本框Txt2中。
【应用4.3】
在下面的应用中，当窗口内发生Click事件时，窗口内将显示如图4-1所示的杨辉三角形（每一行都是三项式展开的系数）。请完善程序代码。
Private Sub Form Click（）
Dim i ， j ， c As Integer ， StrTemp As String
Dim a(9) As Integer
a(0) = 0 : a(1) = 1 : StrTemp = Str(a(1)) ＋ Space(3)
CurrentX = （ScaleWidth一TextWidth(StrTemp)）/2
Print StrTemp
For j = 2 To 9
a（j）= 1
For c = j-1 To 2 Step - 1
a（c） = （3）
Next
(4) = “”
For c = 1 To j
StrTemp = StrTemp & Str（(5)）& Space (5 - Len (Str (a (c)）））
Next
CurrentX =（ScaleWidth一TextWidth(StrTemp)）/ 2
Print StrTemp
Next
End Sub
正确答案及解析
正确答案
解析
你可能感兴趣的试题
一台主机的IP地址为202.123.25.36，掩码为255.255.254.0。如果该主机需要在该网络进行直接广播，那么它应该使用的目的地址为（ ）
-
- A.202.123.25.0
- B.202.123.25.255
- C.202.123.24.0
- D.202.123.24.255
- 查看答案
在计算机系统的日常维护工作中，应当注意硬盘工作时不能__(2)__。另外，需要防范病毒，而__(3)__是不会被病毒感觉的。
-
- A.电子邮件
- B.硬盘
- C.U盘
- D.ROM
- 查看答案
有 4 个 IP 地址：201.117.15.254、201.117.17.01、201.117.24.5 和 201.117.29.3，如果子网掩码为 255.255.248.0，则这 4 个地址分别属于3个子网；其中属于同一个子网的是（）
-
- A.201.117.15.254 和 201.117.17.01
- B.201.117.17.01 和 201.117.24.5
- C.201.117.15.254 和 201.117.29.3
- D.201.117.24.5 和 201.117.29.3
- 查看答案
在异步通信中，每个字符包含1位起始位、7位数据位、1位奇偶位和1位终止位，每秒钟传送200个字符，采用4相位调制，则码元速率为（）。
-
- A.50波特
- B.500波特
- C.550波特
- D.1000波特
- 查看答案
在 Windows 中，运行（ ）命令得到下图所示结果。以下关于该结果的叙述中，错误的是（ ）。
Pinging 59.74.111.8 with 32 bytes of data:
Reply from 59.74.111.8: bytes=32 time=3ms TTL=60
Reply from 59.74.111.8: bytes=32 time=5ms TTL=60
Reply from 59.74.111.8: bytes=32 time=3ms TTL=60
Reply from 59.74.111.8: bytes=32 time=5ms TTL=60
Ping statistics for 59.74.111.8:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 3ms, Maximum = 5ms, Average = 4ms
-
- A.该命令使得本地主机向目标主机发送了 4 个数据包
- B.本地主机成功收到了目标主机返回的 4 个数据包
- C.本地主机与目标主机连接正常
- D.该命令用于查看目标主机的 IP 地址
- 查看答案