●试题八阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】该应用程序是用来修改文本框中的字体属性，其运行窗口如图4所示。窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont，chkltalic，chkSize，chkColor)组成。程序运行后，用户在文本框内输入一段文字，然后按需要单击各选择框，用以改变文本的字体、字型、颜色及大小。文本框的Mulitine属性已经设为True。当不选择"黑体"时，文字应是

阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码，将应填入(n)处。

[应用说明]

启动某应用程序运行的登录窗口如下：

其中的标签(Label1)“用户名(U)”对应文本框Username，标签(Label2)“密 码(P)”对应文本框Password。当用户在Username文本框中输入用户名“ali88”，在Password文本框中输入“zmkm”(显示的字符均为“*”)，并单击“确定”按钮时，就会弹出应用程序的主窗口frmAPP，而该登录窗口就会卸载。

如果用户名或密码输入错误，则会弹出报警信息框。当用户单击其中的“确定”按钮后，登录窗口中Password文本框的内容就会消失，光标停留在该框内，以便用户重新输入密码，必要时用户还可以再修改用户名，再次做登录尝试。本应用程序允许发生3次输入错误。在第3次输入错误后，就会立即退出该应用程序。

在弹出登录窗口后，当按组合键“Alt+U”时光标就会停留在Username文本框中：当按组合键“Alt+P”时光标就会停留在Password文本框中。当用户按Enter键时，就相当于单击“确定”按钮：当用户按Esc键时，就相当于单击“取消”按钮，立即退出该应用程序。

[属性设置]

在开发过程中，部分控件及属性设置如下：

[程序代码]

Private Sub cmdOK_Click()

(3) As Integer ' 静态变量times的说明

If (4) Then

Unload Me ' 卸载本登录窗口

(5) ' 弹出应用程序主窗口frmAPP

Else

MsgBox ("用户名或密码错! ")

times=times+1

Password.Text="" ' 清除密码框中的内容

Password.SetFocus ' 将光标定位于密码框

If times=3 Then End

End If

End Sub

Private Sub cmdCanee1_Click()

End

End Sub

阅读下列说明和流程图，将应填入(n)的字句写在对应栏内。

【说明】

下列流程图(如图4所示)用泰勒(Taylor)展开式

sinx=x-x3/3!+x5/5!-x7/7!+…+(-1)n×x2n+1/(2n+1)!+…

【流程图】

计算并打印sinx的近似值。其中用ε(＞0)表示误差要求。

阅读下面的说明，回答问题1～问题4，将解答填入答题纸对应的解答栏内。

[说明]

阅读以下说明，回答问题1～问题4，将解答填入答题纸对应的解答栏内。

windows Server 2003是一个多任务多用户的操作系统，能够以集中或分布的方式实现各种应用服务器角色，是目前应用比较广的操作系统之一。

Windows内置许多应用服务功能，将下表中(1)～(5)处空缺的服务器名称填写在答题纸对应的解答栏内。

(1)

阅读以下应用说明及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)处的字句写在答题纸的对应栏内。

【说明】

本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果labe1控件名。

【程序代码】

Option Explicit

Private Function convert(pintDec As Intege，pintS As Integer)As String

Dim intCt As Integer，intR As Integer

Dim strCov As String，strRes As String

intR=pintDec Mod pintS

Do While (1)

strCov=strCov ＆ Str(intR)

(2)

intR=pintDec Mod pintS

Loop

For intCt= (3) To 1 Step-1

strRes=strRes ＆ Mid(strCov，intCt，1)

Next intCt

convert=strRes

End Function

Private Sub cmdQuit_Click()′退出

Unload Me

End Sub

Private Sub optBin_Click()′二进制

lblRes．Caption="转换结果："＆ (4)

End Sub

Private Sub optHex_Click()′十六进制

lblRes．Caption="转换结果："＆ (5)

End Sub

Private Sub optOct_Click()′八进制

lblRes．Caption="转换结果："＆Oct(Val(txtDe

C．Text))

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

图2-1是基于软交换的网络分层模型。请将选项应填入（n）处的字句写在答题纸对应的解答栏内。

图6-1是下一代网络的体系结构简图，请根据此简图将应填入（n）处的字句写在答题纸的对应栏内。

阅读以下应用说明及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. Fontl talic =(3)

Else

txtPassage. Fontltalic=(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

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

【说明】

在窗体上设计两个文本框和两个标签，标签上显示：“摄氏温度：”和“华氏温度：”，文本框一个用于输入摄氏温度数，一个用于输出对应的华氏温度。摄氏温度与华氏温度的转换公式为：c=(5/9)×(f-32)

要求：对输入的摄氏温度数有检查功能，以拒绝接收非数字字符。运行界面如图所示。

【Visual Basic代码】

Private Sub Commandl_Click ()

Text1 = ""

Text2 = ""

Text1.Enabled = True

Text2.Enabled = True

Text1.SetFocus

End Sub

Private Sub Command2 Click ()

End

End Sub

Private Sub Form. Load ()

Text1 = ""

Text2 = ""

Text1.Enabled = False

Text2.Enabled = False

End Sub

Private Sub Textl_Change ()

Text2.Text = (1)

End Sub

Private Sub Textl_KeyPress (KeyAscii As (2) )

If (3) Then

If Chr ( KeyAscii ) ＜ "0" Or (4) Then

(5)

End If

End If

End Sub

阅读以下应用说明、属性设置及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

●试题二

阅读下列函数说明和C代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

该程序运行后，输出下面的数字金字塔

【程序】

include<stdio．h>

main ()

{char max，next；

int i；

for(max=′1′；max<=′9′；max＋＋)

{for(i=1；i<=20- (1) ；＋＋i)

printf(" ")；

for(next= (2) ；next<= (3) ；next＋＋)

printf("％c"，next)；

for(next= (4) ；next>= (5) ；next--)

printf("％c"，next)；

printf("＼n")；

}

}

●试题一

阅读下列说明和流程图，将应填入(n)的字句写在答题纸的对应栏内。

【说明】

下列流程图(如图4所示)用泰勒(Taylor)展开式

sinx=x-x3／3!+x5／5!-x7／7!+…+(-1)n×x 2n+1／(2n+1)!+…

【流程图】

图4

计算并打印sinx的近似值。其中用ε(>0)表示误差要求。

试题三（共 15 分）

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

（a）智能网概念模型中分布功能平面模型如下图所示，请根据此图将应填入（n）处的 字句写在答题纸的对应栏内。