网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

阅读以下应用说明及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)处的字句写在对应栏内。【说明】已知窗体上有两个名为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 ” 相关考题
考题 ●试题七阅读以下应用说明及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

考题 阅读以下说明和流程图,将应填入(n)处的字句写在对应栏内。【说明】已知头指针分别为La和lb的有序单链表,其数据元素都是按值非递减排列。现要归并La和Lb得到单链表Lc,使得Lc中的元素按值非递减排列。程序流程图如下所示:

考题 阅读以下说明及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

考题 阅读以下说明和流程图,将应填入(n)处的字句写在对应栏内。[说明]设学生某次考试的成绩按学号顺序逐行存放于某文件中,文件以单行句点“.”为结束符。下面的流程图读取该文件,统计出全部成绩中的最高分max和最低分min。

考题 阅读下列程序说明和C++程序,把应填入其中(n)处的字句,写在对应栏内。【说明】阅读下面几段C++程序回答相应问题。比较下面两段程序的优缺点。①for (i=0; i<N; i++ ){if (condition)//DoSomething…else//DoOtherthing…}②if (condition) {for (i =0; i<N; i++ )//DoSomething}else {for (i=0; i <N; i++ )//DoOtherthing…}

考题 阅读以下说明和流程图,将应填入(n)处的字句写在对应栏内。[说明]下面的流程图用于计算一个英文句子中最长单词的长度(即单词中字母个数)MAX。假设该英文句子中只含字母、空格和句点“.”,其中句点表示结尾,空格之间连续的字母串称为单词。[流程图]

考题 试题三(共 15 分)阅读以下说明和 C 程序,将应填入 (n) 处的字句写在答题纸的对应栏内。

考题 阅读下列说明和?C++代码,将应填入(n)处的字句写在答题纸的对应栏内。 【说明】 阅读下列说明和?Java代码,将应填入?(n)?处的字句写在答题纸的对应栏内。 【说明】 某快餐厅主要制作并出售儿童套餐,一般包括主餐(各类比萨)、饮料和玩具,其餐品种 类可能不同,但其制作过程相同。前台服务员?(Waiter)?调度厨师制作套餐。现采用生成器?(Builder)?模式实现制作过程,得到如图?6-1?所示的类图。