程序运行后，单击窗体，则在窗体上显示的内容是（）. Private Sub Form_Click（　） Dim a(1 To 6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min 1=i For j=i+1 To n If a(j)＜a(min1)Then min1=j Next j t=a(i):a(i)=a(min1):a(min1)=t Next i For i=1 To n Print a(i) Next i End Sub -题库考试答案搜索网

程序运行后，单击窗体，则在窗体上显示的内容是（）. Private Sub Form_Click（　） Dim a(1 To 6)As Integer Dim min1%,i%,j%,n%,t%,k% a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min 1=i For j=i+1 To n If a(j)＜a(min1)Then min1=j Next j t=a(i):a(i)=a(min1):a(min1)=t Next i For i=1 To n Print a(i) Next i End Sub

单选题

2022-09-22 14:19

A、9 8 7 6 3 2
B、2 3 6 7 8 9
C、9 8 7 6 3
D、2 3 6 7 8

查看答案

正确答案

B

试题解析

本题考查循环程序的分析。程序主要包括两条循环语句，一条为两层循环的嵌套语句，内层循环找到当前i到n之间的最小元素的下标，退出内循环则把最小元素放到a(i)的位置，i从1变化到n-1；另外一条循环语句为输出数组中的所有元素，即把排序以后的结果输出。

标签：大学试题工学

感兴趣题目

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer Dim a(10， 10)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=(i-1) *3+j Print a(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是

程序运行后，如果单击命令按钮则，在窗体上显示的内容是（）.

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）

在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。

有下列程序： Private Sub Command1_Click() X$="Nanchang" y$="Beijing" z$="Nanjing" z$=InStr(Left(x$，3)+Right(y$，4)，z$) Print z$ End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

主窗体只能显示为（），子窗体可以显示为（），也可以显示为（）。

下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub

在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后，单击命令按钮，则在Text2文本框中显示的内容是______。

在MDI应用程序中，每一个子窗体的菜单都只能显示在子窗体内。

设有如下程序： Private Sub Command1_Click（） Dim a Dim I As Integer a=Array（1，2，3，4，5，6，7，8，9） For I=0 To 3 Print a（5-I）； Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。

程序设计题目：（事件）单击窗体。（响应）求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。

相关题目: 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（　　）。; 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 a = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_____; 下面程序运行后，第3次单击窗体后，窗体中输出的是______。Dim a As IntegerPrivate Sub Form_Click()Static c As IntegerClsa = a + 1b = b + 1End Sub; 在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()Dim x As Integerx = Val(InputBox("请输入一个整数"))Print x + Text1TextEnd Sub程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。; 在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1_Click()For i=5 to 1 step -08Print Int(i);Next iEnd Sub运行程序,单击命令按钮,窗体上显示的内容为________。; 在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click() Dim x As Integer x = Val(InputBox("请输入一个整数")) Print x + Text1TextEnd Sub程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。; 运行下列程序： Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是; 阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是; 下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub; 在窗体中添加一个名称为Cmd的命令按钮，然后编写如下程序： Public x As integer Private Sub Cmd_Click() x=10 Call add1 Call add2 MsgBox x End Sub Private Sub add1 ( ) x=x+20 End Sub Private Sub add2 ( ) Dim x As integer x=x+40 End Snb 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。; 在窗体中要显示一门课程的基本信息和选修该课程的学生，窗体设计时要在主窗体中显示课程的基本信息，在子窗体中显示选修该课程的学生名单，则主窗体和子窗体数据源之间的关系是（）; 在窗体中要显示一名学生基本信息和该学生各门课程的成绩，窗体设计时在主窗体中显示学生基本信息，在子窗体中显示学生课程的成绩，则主窗体和子窗体数据源之间的关系是（）; 在窗体中要显示一名教师基本信息和该教师所承担的全部课程情况，窗体设计时在主窗体中要显示教师基本信息，在子窗体中显示承担的课程情况，则主窗体和子窗体数据源之间的关系是（）; 在窗体中要显示一名医生基本信息和该医生当天预约的病人，窗体设计时要在主窗体中显示医生基本信息，在子窗体中显示预约的病人，则主窗体和子窗体数据源之间的关系是（）; 在“窗体视图”中显示窗体时，窗体中没有记录选定器，应将窗体的“记录选定器”属性值设置为( )。; 主窗体和子窗体的链接字段不一定在主窗体或子窗体中显示，但必须包含在( )。; 在Visual Basic程序运行期间，若改变窗体大小，则自动触发的窗体事件是（）。; 下列程序段运行后窗体上输出结果为( )。 Private Sub Command1_Click() a=5: b=4: c=3: d=2 x=3＞2*b Or a=c And b＜＞c Or c＞d Print x End Sub; 下列程序段运行后窗体上输出结果为( )。 Private Sub Command1 Click() a=5：b=4：c=3：d=2 X=3＞2*b Or a=c And b＜＞C Or c＞d Print X End Sub; 在窗体上画一个名称为Connand1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next i End Sub程序运行后，单击命令按钮，窗体上显示的是______。

广告位招租WX:84302438

题库考试答案搜索网

免费的网站请分享给朋友吧