●试题五阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入(n)处在字句写在答题纸的对应栏内。【说明】本应用程序的运行窗口如图2所示。只要用户单击"闪烁"按钮，文字"欢迎光临"就会以0．3秒消

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

【说明】

本应用程序是一个乘法计算器，其运行窗口如图2所示。

在该界面中，“被乘数”、“乘数”以及“积”等文字为标签，相应的3个输入输出数据框为文本框，此外还有3个命令按钮。用户在“被乘数”和“乘数”相应的文本框内输入数据，再单击“运算”按钮，便能在“积”对应的文本框中看到相乘的结果；当用户单击“清除”按钮时，就会清除各文本框中的数据；当用户单击“关闭”按钮时就会关闭该窗口并退出应用程序。用户不能在“积”对应的文本框中输入数据。

【属性设置】

各个对象、有关的属性名以及需要修改的属性值设计如下：

【程序】

Private Sub cmdMultiply_Click( )

txt3. Text =Trim(Str＄ ((3)) '加法运算获得和数

End Sub

Private Sub (4) (

txt1. Text=" " '空字符串赋值给文本框txt1的内容

txt2. Text=" " '空字符串赋值给文本框txt2的内容

txt3. Text=" " '空字符串赋值给文本框txt3的内容

End Sub

Private Sub cmdClose_Click( )

(5) '退出应用程序

End Sub

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

【说明】

以下程序为求行列式X(5,5)的值S。

【Visual Basic代码】

Private Function col ( byval x ( 5,5 ) as integer ) as long

dim fesult as long

dim temp as long

dim I as integer

dim j as integer

dim k as imeger

result = 0

for I = to 5

(1)

for j = 1 to 5

if I+j＞6 then

k= ( 1+j ) mod 5

else

k=1

endif

temp=temp*x ( k,j )

(2)

result=(3)

(4)

(5)

End function

●试题七

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

【说明】

已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdGene按钮时，随机产生10个［1，100］范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。

【程序代码】

Dim intA(1 To 10)As Integer

Private Sub cmdGene_Click()

Dim intI As Integer

Randomize

For intI=1 To 10

intA(intI)= (1)

Next intI

End Sub

Private Sub cmdSort_Click()

Dim intI，intJ，intMin，intTemp As Integer

For intI=1 To 9

intMin=intA(intI)

For intJ= (2) To 10

If intA(intJ)<intMin Then

Temp=intA(intJ)

intA(intJ)= (3)

intMin=intTemp

End If

Next intJ

(4)

(5)

For intI=1 To 10

Print Str(intA(intI))+" "；

Next intI

Next IntI

Print

End Sub

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

【说明】

已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdCene按钮时，随机产生10个[1,100]范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。

【程序代码】

Dim intA(1 To 10)As integer

Private Sub cmdGene_Click( )

Dim intl As Integer

Randomize

For intl = 1 To 10

intA(intl) =(1)

Next intl

End Sub

Private Sub cmdSort_Click( )

Dim intl, intJ,intMin, intTemp As Integer

For intl = 1 To 9

intMin = intA(intl)

For intJ=(2) To 10

If intA(intJ) ＜ intMin Then

Temp = intA(intJ)

intA(intJ)=(3)

intMin = intTemp

End If

Next intJ

(4)

(5)

For intl = 1 To 10

Print Str(intA(intl))+" ";

Next intl

Next lntl

Print

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. 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)处的字句写在对应栏内。

[说明]

本程序求3～100之间的所有素数(质数)并统计个数；同时将这些素数从小到大依次写入顺序文件E: \dataout.txt；素数的个数显示在窗体Form1上。

[Visual Basic 代码]

Private Sub Command1_ Click ( )

Dim count as integer, flag as Boolean

Dim t1 as Integer, t2 as Integer

(1)

Count=0

For t1=3 to 100

Flag=Tree

For t2=2 to Int( Sqr ( t1 ) )

If (2) Then flag=False

Next t2

(3)

count=(4)

write 1, t1

End if

Next t1

(5)

Close 1

End Sub

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

●试题六

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

【说明】

单击窗体上的"测试"(cmdTest)按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(txtShow)中。

【程序代码】

Private Sub cmdTest_Click()

Dim strT1，strT2 As String

Dim strCh As (1)

Dim intL As Integer

Dim intI As Integer

strT1= (2) ("请输入一串字符"，"字符串输入")

intL= (3)

strT2=″″

For intI=l To intL

strCh=Mid(strT1，intI，1)

If(strCh>"A"And (4) ) Or (strCh>"a" And suCh<"z")Then

strT2=strT2+strCh

End If

Next intI

txtShow．Text= (5)

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)