阅读以下应用说明及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运行后，单击窗体，则在窗体上显示的内容是：a=(4)和b=(5)。【程序代码8.2】Private Sub Form_Click()Dim a As Integer,b As Integera=20:b=50p1 a,bp2 a,bp3 a,bPrint"a=";a,"b=";bEnd SubSub p1(x As Integer, ByValy As Integer)x=x+l0y=y+20End SubSub p2(ByVal×As Integer, y As Integer)x=x+l0y=y+20End SubSub p3(ByVal×As Integer, ByVal y As Integer)x=x+10y=y+20End Sub
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
【说明8.1】
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。
【程序代码8.1】
Private Sub Command1_Click()
For i=1 To 20
x=Int((1)*200+100)
If (2)=0 Then
Print x
S=S+ (3)
End If
Next i
Print"Sum=";S
End Sub
【说明8.2】
程序8.2运行后，单击窗体，则在窗体上显示的内容是：a=(4)和b=(5)。
【程序代码8.2】
Private Sub Form_Click()
Dim a As Integer,b As Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
Print"a=";a,"b=";b
End Sub
Sub p1(x As Integer, ByValy As Integer)
x=x+l0
y=y+20
End Sub
Sub p2(ByVal×As Integer, y As Integer)
x=x+l0
y=y+20
End Sub
Sub p3(ByVal×As Integer, ByVal y As Integer)
x=x+10
y=y+20
End Sub
相关考题：
●试题七阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdGene按钮时，随机产生10个［1，100］范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。【程序代码】Dim intA(1 To 10)As IntegerPrivate Sub cmdGene_Click()Dim intI As IntegerRandomizeFor intI=1 To 10intA(intI)= (1)Next intIEnd SubPrivate Sub cmdSort_Click()Dim intI，intJ，intMin，intTemp As IntegerFor intI=1 To 9intMin=intA(intI)For intJ= (2) To 10If intA(intJ)intMin ThenTemp=intA(intJ)intA(intJ)= (3)intMin=intTempEnd IfNext intJ(4)(5)For intI=1 To 10Print Str(intA(intI))+" "；Next intINext IntIPrintEnd Sub
●试题六阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】单击窗体上的"测试"(cmdTest)按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(txtShow)中。【程序代码】Private Sub cmdTest_Click()Dim strT1，strT2 As StringDim strCh As (1)Dim intL As IntegerDim intI As IntegerstrT1= (2) ("请输入一串字符"，"字符串输入")intL= (3)strT2=″″For intI=l To intLstrCh=Mid(strT1，intI，1)If(strCh"A"And (4) ) Or (strCh"a" And suCh"z")ThenstrT2=strT2+strChEnd IfNext intItxtShow．Text= (5)End sub
阅读程序Option Base 1Private Sub Form_Click（）Dim arr,SumSum = 0arr = Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3 = arr（i）\3 ThenSum = Sum + arr（i）End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．13B．14C．27D．15
阅读下列程序说明和C代码，把应填入其中n处的字句写在答卷的对应栏内。【说明】程序利用选择排序算法对数组a中的N个整数按照从小到大的顺序排列，并将排序结果显示出来。【程序】define N 10main(){void (1)；int i，a[N]；for(i=0；i＜10，i++) /*输入*/scanf(“%d”，a[i])；(2)；for(i=0；i＜N，i++) /*输出*/printf(“%3d”，a[i])；}void selectSon(int x[]，int n){int i，j，k，t；for(int i=0； (3)；i++){k=i；for(j=i+1；j＜n；j++)if (4) k=j；if (5){t=x[i]；x[i]=x[k]；x[k] =t；}}}
（7）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click( )a$="National Computer Rank Examination"n=Len(a$)s=0For i=1 To nb$=Mid(a$, i, 1)If b$="n" Thens=s+1End IfNext iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是 【7】 。
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+iEnd IfNext iMsgBox sumEnd Sub
阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。[说明]本程序求3～100之间的所有素数(质数)并统计个数；同时将这些素数从小到大依次写入顺序文件E: \dataout.txt；素数的个数显示在窗体Form1上。[Visual Basic 代码]Private Sub Command1_ Click ( )Dim count as integer, flag as BooleanDim t1 as Integer, t2 as Integer(1)Count=0For t1=3 to 100Flag=TreeFor t2=2 to Int( Sqr ( t1 ) )If (2) Then flag=FalseNext t2(3)count=(4)write 1, t1End ifNext t1(5)Close 1End Sub
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【说明】以下程序为求行列式X(5,5)的值S。【Visual Basic代码】Private Function col ( byval x ( 5,5 ) as integer ) as longdim fesult as longdim temp as longdim I as integerdim j as integerdim k as imegerresult = 0for I = to 5(1)for j = 1 to 5if I+j＞6 thenk= ( 1+j ) mod 5elsek=1endiftemp=temp*x ( k,j )(2)result=(3)(4)(5)End function
阅读以下说明及Visual Basic 程序代码，将应填入(n)处的字句写在对应栏内。[程序5.1说明]下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。[Visual Basic代码]Private Sub Form. Load ()Dim x As String*1X=(1) (“请输入单个字符”，“字符”)Select Case UCase ( (2) )Case (3)。Print X+“是字母字符”Case (4)Print X+ “是数字字符”Case ElsePrint X+“是其他字符”End Select[程序5.2说明]在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。[Visual Basic代码]Private Sub Fom_Load ()Timer1.Interval=1000EndSubPrivate Sub Timer1_ timer() (5)EndSub
阅读下列说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。[说明]某小型家电超市开发了下面的程序，用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示：程序界面包含两个控件数组，分别是提货商品复选框控件数组Check1以及提货数量文本框控件数组Text1(相同下标的复选框和文本框相对应)，提货清单的显示由List控件实现，按钮“打印清单”和“清除”分别名为Command1和Command2。[Visual Basic代码]’提货商品复选框的单击事件响应代码Private Sub Check1_Click(Index As Integer)If Check1 (Index). Value = 1 Then (1). SetFocusEnd Sub’按钮“打印清单”的单击事件响应代码Private Sub Command1_Click()Dim i, n, price As Integer, sum As Long, title As Stringsum = 0For i = O To 4Select Case iCase 0: title ="电视机": price = 3580Case 1: title ="微波炉": price = 660Case 2: title ="电冰箱": price = 1850Case 3: title ="DVD": price = 2880Case 4: title ="空调": price = 2500End SelectIf (2)= 1 And Textl(i). Text ＜ ＞ " " Then(3) title Text1(i).Text "台"n = n + Val(Textl(i))sum =(4)End IfNext iIf sum ＜ ＞ 0 Then(3) "共:" n "台," "合计金额:" sum "元。"End IfEnd Sub’按钮“清除”的单击事件响应代码Private Sub Command2_Click()(5)End Sub
阅读以下说明和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);}
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【说明】已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdCene按钮时，随机产生10个[1,100]范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。【程序代码】Dim intA(1 To 10)As integerPrivate Sub cmdGene_Click( )Dim intl As IntegerRandomizeFor intl = 1 To 10intA(intl) =(1)Next intlEnd SubPrivate Sub cmdSort_Click( )Dim intl, intJ,intMin, intTemp As IntegerFor intl = 1 To 9intMin = intA(intl)For intJ=(2) To 10If intA(intJ) ＜ intMin ThenTemp = intA(intJ)intA(intJ)=(3)intMin = intTempEnd IfNext intJ(4)(5)For intl = 1 To 10Print Str(intA(intl))+" ";Next intlNext lntlPrintEnd Sub
有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是A．MicrosonB．错误提示C．VisualD．Basic
阅读以下说明，以及用C++在开发过程中所编写的程序代码，将应填入(n)处的字句写在对应栏内。【说明】在下面函数横线处填上适当的字句，使其输出结果为：构造函数.构造函数.1，25，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;}
阅读以下说明和C语言程序，将应填入(n)处的字句写在对应栏内。【说明】计算n的合数。一个整数n可以有多种划分，使其划分的一列整数之和为n。例如，整数5的划分为：54 13 23 1 12 2 12 1 1 11 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);elseoutput_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;}}
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。Private Sub Command1 _Click( )For i = 1 To 20x=Int(【 】*200+ 100)If【 】 = 0 ThenPrint xS = S +【 】End IfNext IPrint "Sum = "; SEnd Sub
以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。Dim arr(1 To 20)For i=1 To 20arr(i)=【 】Next iSum=0For Each X In【 】If X＞50 ThenPrint Tab(20)；XSum=Sum+XEnd IfNext XPrint Tab(20)；“Sum＝”；Sum
下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数，请补充完整此程序：Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+IEnd IfNext IMsgBox sumEnd Sub
阅读以下说明和Visual Basic 码，将应填入(n)处的字名写在的对应栏内[说明] 这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。下面是实现上述功能的程序，请填空。“Option Explicit”此语句的作用：强制显示声明Dim UserName (2) As StringDim Flag As Boolean(1)Private Sub Form. _ Load( )UserName (0) = "AA": UserName (1) = "BB": UserName(2) = "CC"Flag = FalseinputName = InputBox( “请输入名称：“,”身份确认”“,”)Dim i As IntegerFor i = 0 To FalseIf inputName = UserName(i) Then(2)End IfNext iIf (3) ThenMsgBox “用户身份确失败!退出应用”, vbOKOnly, “警告”EndEnd IfEnd SubPrivate Sub Form_ Paint( )(4)End Sub
阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入______处的语句写在答题纸的对应栏内。[应用说明7]本应用程序的运行窗口如图2-5所示。只要用户单击“闪烁”按钮，文字“欢迎光临”就会以0.3s消失、0.3s显示反复进行闪烁；单击“停止”按钮，闪烁停止，恢复图示的初态。[属性设置7][程序代码7]Private Sub CmdF C1ick()Timerl. (3)=TrueLabel.Visible=FalseEnd SubPrivate Sub Timerl_Timer()(4)=not Label.VisibleEnd SubPrivate Sub CmdT_Click()Timerl.Enabled=(5)Label.Vlsible=trueEnd 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 DoubleDataIn＝(3)Select Case (4)Case“取整数部分”DataOut=Int(DataIn)Case“求平方根”If DataIn＜0 ThenMsgBox$(“负数不能开平方!”ElseDataOut=Sqr(DataIn)End IfCase“取绝对值”DataOut=Abs(DataIn)(5)TxtOut.Text=str$(DataOut)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 DoubleDataln=(3)Select Case (4)Case "取整数部分"DataOut =Int(Dataln)Case "求平方根"If Dataln＜0 ThenMagBox "负数不能开平方!"ElseDataOut = Sqr(Dataln)End IfCase "取绝对值"DataOut = Abs(Dataln)(5)TxtOut. Text = str $ (DataOut)End Sub
运行下列程序：Private Sub Form_Click( )For i = 1 To 20If fun1(i) Thens = s + 1End IfNext iPrint sEnd SubPrivate Function fun1(y) As BooleanIf y Mod 2 0 Thenfun1 = FalseElsefun1 = TrueEnd IfEnd Function单击窗体后，则在窗体上显示的结果是( )。A.110B.10C.0D.20
●试题二阅读下列函数说明和C代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】该程序运行后，输出下面的数字金字塔【程序】includestdio．hmain (){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) =TrueLabe1．Visible=FalseEnd SubPrivate Sub Timer1_Timer()(4) =not Label.VisibleEnd SubPrivate Sub CmdT_Click()Timer1．Enabled= (5)Labe1．Visible=trueEnd Sub
试题三（共 15 分）阅读以下说明和 C 程序，将应填入 （n） 处的字句写在答题纸的对应栏内。