阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【说明8.1】以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。【程序代码8.1】Private Sub Command1_Click()For i=1 To 20x=Int((1)*200+100)If (2)=0 ThenPrint xS=S+ (3)End IfNext iPrint"Sum=";SEnd Sub【说明8.2】程序8.2运行后，单击窗体，则在窗体上显示

（7）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：

Private Sub Command1_Click( )

a$="National Computer Rank Examination"

n=Len(a$)

s=0

For i=1 To n

b$=Mid(a$, i, 1)

If b$="n" Then

s=s+1

End If

Next i

Print s

End Sub

程序运行后，单击命令按钮，输出结果是 【7】 。

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

[程序5.1说明]

下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。

[Visual Basic代码]

Private Sub Form. Load ()

Dim x As String*1

X=(1) (“请输入单个字符”，“字符”)

Select Case UCase ( (2) )

Case (3)。

Print X+“是字母字符”

Case (4)

Print X+ “是数字字符”

Case Else

Print X+“是其他字符”

End Select

[程序5.2说明]

在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。

[Visual Basic代码]

Private Sub Fom_Load ()

Timer1.Interval=1000

EndSub

Private Sub Timer1_ timer() (5)

EndSub

阅读以下说明和c++码，将应填入(n)处的字名写在的对应栏内。

[说明] 以下函数完成求表达式

的值，请填空使之完成此功能。

float sum ( float x )

{ float s=0.0;

int sign = 1;

(1);

for(inti=1;(2); i+ +)

{

t=t*x;

s=s+(3);

sign = - sign;

(4);

}

有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是

A．Microson

B．错误提示

C．Visual

D．Basic

阅读以下说明和C语言程序，将应填入(n)处的字句写在对应栏内。

【说明】

计算n的合数。一个整数n可以有多种划分，使其划分的一列整数之和为n。例如，整数5的划分为：

5

4 1

3 2

3 1 1

2 2 1

2 1 1 1

1 1 1 1 1

共有7种划分。这种划分的程序如下所示。

【程序】

include ＜stdio.h＞

int n[1000],m,k;

void output sum()

{

int j;

for(j=0;n[j]!=0;j++)

printf("%d\t",n[j]);

printf("\n");

}

void sum(int i)

if(m-n[i]＜n[i])

{ m=m-n[i];

(1)

i++;

n[i+1]=0;

}

else

{

(2)

m-=n[i];

i++;

}

if(m!=n[i])

sum(i);

else

output_sum();

if(n[i]＞1)

{

n[i]--;

(3)

}

else

{

while((n[i]==1)&&(i＞O))

{

i--;

(4)

}

if(i!=0)

{

(5)

sum(i);

}

}

}

void main()

{

int i;

scanf("%d",&n[0]);

m=k=n[0];

for(i=1;i＜=k;i++)

n[i]=0;

while(n[0]!=1)

{

n[0]--;

i=0;

sum(0);

m=k;

}

}

以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。

Dim arr(1 To 20)

For i=1 To 20

arr(i)=【 】

Next i

Sum=0

For Each X In【 】

If X＞50 Then

Print Tab(20)；X

Sum=Sum+X

End If

Next X

Print Tab(20)；“Sum＝”；Sum

阅读以下说明和Visual Basic 码，将应填入(n)处的字名写在的对应栏内

[说明] 这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。下面是实现上述功能的程序，请填空。“Option Explicit”此语句的作用：强制显示声明

Dim UserName (2) As String

Dim Flag As Boolean

(1)

Private Sub Form. _ Load( )

UserName (0) = "AA": UserName (1) = "BB": UserName(2) = "CC"

Flag = False

inputName = InputBox( “请输入名称：“,”身份确认”“,”)

Dim i As Integer

For i = 0 To False

If inputName = UserName(i) Then

(2)

End If

Next i

If (3) Then

MsgBox “用户身份确失败!退出应用”, vbOKOnly, “警告”

End

End If

End Sub

Private Sub Form_ Paint( )

(4)

End Sub

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

[应用说明5.1]

应用程序的窗体中有1个下拉式列表框(名称为Combol)和2个文本框(名称分别为Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。

[程序代码5.1]

Private Sub Combol_Click()

Txt1，Text=Combol. (1)

Txt2．Text=Combol. (2)

End Sub

(注意：可供(2)处选择的选项有List，Index，ListIndex，LisCount，Number)

[应用说明5.2]

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

当用户在输入框(名为TxtIn)中输入数值数据，并从下拉式列表框(名称为CmbOp)中选择所需的运算后，输出框(名为TxtOut)中就会显示运算的结果。用户单击“清除”按钮(名为CmdClear)后，输入框和输出框都清空。

[程序代码5.2]

Private Sub CmbOp_Click()

Dim DataIn As Double，DataOut as Double

DataIn＝(3)

Select Case (4)

Case“取整数部分”

DataOut=Int(DataIn)

Case“求平方根”

If DataIn＜0 Then

MsgBox$(“负数不能开平方!”

Else

DataOut=Sqr(DataIn)

End If

Case“取绝对值”

DataOut=Abs(DataIn)

(5)

TxtOut.Text=str$(DataOut)

End Sub

运行下列程序：

Private Sub Form_Click( )

For i = 1 To 20

If fun1(i) Then

s = s + 1

End If

Next i

Print s

End Sub

Private Function fun1(y) As Boolean

If y Mod 2 <> 0 Then

fun1 = False

Else

fun1 = True

End If

End Function

单击窗体后，则在窗体上显示的结果是( )。

A.110

B.10

C.0

D.20

根据条件，回答 46～48 题： 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。

第46题：请填写【1】处答案 。

试题三（共 15 分）

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

下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。

Private Sub Form_Click()

sum＝0

For i＝1 To 1000

If______Then

sum＝sum+i

End If

Next i

MsgBox sum

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

[说明]

某小型家电超市开发了下面的程序，用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示：

程序界面包含两个控件数组，分别是提货商品复选框控件数组Check1以及提货数量文本框控件数组Text1(相同下标的复选框和文本框相对应)，提货清单的显示由List控件实现，按钮“打印清单”和“清除”分别名为Command1和Command2。

[Visual Basic代码]

’提货商品复选框的单击事件响应代码

Private Sub Check1_Click(Index As Integer)

If Check1 (Index). Value = 1 Then (1). SetFocus

End Sub

’按钮“打印清单”的单击事件响应代码

Private Sub Command1_Click()

Dim i, n, price As Integer, sum As Long, title As String

sum = 0

For i = O To 4

Select Case i

Case 0: title ="电视机": price = 3580

Case 1: title ="微波炉": price = 660

Case 2: title ="电冰箱": price = 1850

Case 3: title ="DVD": price = 2880

Case 4: title ="空调": price = 2500

End Select

If (2)= 1 And Textl(i). Text ＜ ＞ " " Then

(3) title & Text1(i).Text & "台"

n = n + Val(Textl(i))

sum =(4)

End If

Next i

If sum ＜ ＞ 0 Then

(3) "共:" & n &"台," &"合计金额:"& sum &"元。"

End If

End Sub

’按钮“清除”的单击事件响应代码

Private Sub Command2_Click()

(5)

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

阅读以下说明，以及用C++在开发过程中所编写的程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

在下面函数横线处填上适当的字句，使其输出结果为：

构造函数.

构造函数.

1，2

5，6

析构函数

析构函数.

【C++代码】

include "iostream.h"

class AA

{ public;

AA(int i,int j)

{A=i; B=j;

cout＜＜"构造函数.\n";

}

～AA(){(1);}

void print();

private:

int A, B;

};

void AA∷print()

{cout＜＜A＜＜","＜＜B＜＜endl;}

void main()

{

AA *a1, *a2;

(2)=new AA(1, 2);

a2=new AA(5, 6);

(3);

a2-＞print();

(4) a1;

(5) a2;

}

以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。

Private Sub Command1 _Click( )

For i = 1 To 20

x=Int(【 】*200+ 100)

If【 】 = 0 Then

Print x

S = S +【 】

End If

Next I

Print "Sum = "; S

End Sub

下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数，请补充完整此程序：

Private Sub Form_Click()

sum＝0

For i＝1 To 1000

If______Then

sum＝sum+I

End If

Next I

MsgBox sum

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

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

●试题二

阅读下列函数说明和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")；

}

}

●试题五

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