考题
●试题七阅读以下应用说明及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");}}
考题
根据条件,回答 46~48 题: 以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。第46题:请填写【1】处答案 。
考题
●试题五阅读以下应用说明、属性设置及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) 处的字句写在答题纸的对应栏内。