首页 > 电子信息工程> DSP技术

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

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

在窗体上画一个命令按钮，然后编写如下事件过程，该过程的功能是用简单选择排序法将10个数排成

升序，请在______处将程序补充完整。

Private Sub Command1 _ Click() Dim a(10)

For i=1 To 10

a(i)=Val(InputBox(″″,″″,0)) Next i

For i=______ For j=______

If ______ Then b=a(i) a(i)=a(j) a(j)=b End If Next j Next i

For k=1 To 10 Print a(k) Next k End Sub

答案

查看答案

发布时间：2022-12-03

更多“在窗体上画一个命令按钮，然后编写如下事件过程，该过程的功能是用简单选择排序法将10个数排成”相关的问题

第1题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)x=-5 If x＞0 Then y=x∧2 Else y=x End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（)。

A.-5

B.25

C.1

D.-1

点击查看答案

第2题

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

Private Sub Command1_Click（）

Dim a As Integer, s As Integer

a = 8

s = 1

s = s + a

a = a－1

Loop While a ＜＝ 0

Print s; a

End Sub

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

A.7 9

B.34 0

C.9 7

D.死循环

点击查看答案

第3题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num ＞ 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。

A.无数据输出

B.1 3.4 5.8

C.1 4 7

D.1 3 5

点击查看答案

第4题

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim a, b As Integer

a = val（InputBox（"Enter the First integer"））

b = val（InputBox（"Enter the Second integer"））

Print a + b

End Sub

程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是和（）。

A.579

B.123

C.456

D.123456

点击查看答案

第5题

请输入B的值在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（)x=0DoUntilx=－1a=InputBox（"请输入A的值")a=Val（a)b=InputBox（"请输入B的值")b=Val（b)x=InputBox（"请输入x的值")x=Val（x)（)

A.2

B.3

C.15

D.14

点击查看答案

第6题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Pr

ivate Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A.15

B.14

C.13

D.12

点击查看答案

第7题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Pr

ivate Sub Command1_Click() Dim array1(10，10) As Integer Dim I，j As Integer For I=1 To 3 For j=2 To 4 array(I，J)=I+j Next j Next I Text1，Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A.15

B.14

C.13

D.12

点击查看答案

第8题

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事

件过程： Private Sub Command1_Click() n= Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是()。

A.40

B.30

C.20

D.10

点击查看答案

第9题

设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) N

ext End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。

A.25

B.24

C.15

D.10

点击查看答案

第10题

在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如

下事件过程：Private Sub Command1_Click() CommonDialog1.FileName=“” CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt” CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle=“VBTest”CommonDial

A.该对话框被设置为“打开”对话框

B.在该对话框中指定的默认文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

点击查看答案

第11题

在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Private Sub Command1_Click（）

CommonDialog1.FileName =""

CommonDialog1.Filter="All file|*.*|（*.Doc）|*.Doc|（*.Txt）|*.Txt"

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle="VBTest"