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

[主观题]

在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请

在空白处填入适当的语句。 Sub SORT() Dim a(1 To 10) For i=1 To 10 a(i)=Val(InputBox(" " ，" "，0)) Next i For i=【】 k=i For j=【】 If a(k)＞a(j)Then【】 If k＜＞i Then b＝a(k) a(k)＝a(i) a(i) =b End If Next j Next i For k=1 To 10 Print a(k) Next k End Sub

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是…”相关的问题

第1题

在窗体上画一个名称为Commandl的命令按钮然后编写如下通用过程和命令按钮的事件过程：Private Fu（）

A.6

B.7

C.8

D.9

点击查看答案

第2题

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click（) Textl.

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()

Textl.Text="VB程序设计"

End Sub

Private Sub Textl_Change()

Picturel.Print"VB programming"

End Sub

程序运行后，单击窗体，则在文本框中显示的内容是【】，而在图片框中显示的内容是【】。

点击查看答案

第3题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) a=0 For i=1 To 3

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

Private Sub Command1_Click()

a=0

For i=1 To 3

For j=1 To 4

If j Mod 2＜＞0 Then

a=a+1

End If

a=a+1

Next j

Next i

Print a

End Sub

程序执行后，单击命令按钮，输出结果是【】。

点击查看答案

第4题

在窗体上添加一个命令按钮（名为Command1)，然后编写如下事件过程： Private Sub Command1_Click（)

在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：

Private Sub Command1_Click()

For i＝1 To 4

x＝4

For j＝1 To 3

x＝3

Fork＝1 To 2

x＝x+6

Next k

Next j

Next i

MsgBox x

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是()。

A．7

B．15

C．157

D．528

点击查看答案

第5题

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

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是______。

A．1

B．5

C．27

D．45

点击查看答案

第6题

编写如下通用过程： Sub proc（By Val num As Long，ByRef ren As Long) Dim k

编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是【】。

点击查看答案

第7题

假定有如下的Sub过程：Sub S（x As Single，y As Single)t=xx=t/yy=t Mod y End Sub在窗体上画一个

假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub程序运行后，单击命令按钮，输出结果为______ 。

A．5 4

B．1 1

C．1.25 4

D．1.25 1

点击查看答案

第8题

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

Private Sub Command1_Click()

s = 0

For i = 0 To 15

X = 2 * i - 1

If X Mod 3 = 0 Then s = s + 1

Next i

Label

1.Caption = s

End Sub

程序运行后，单击命令按钮，则标签中显示的内容为

A.1

B.5

C.27

D.45

点击查看答案

第9题

把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，

请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click() Open"d：\test\smtext1．txt"For lnput As1 Text1.Fontsize=14 Text1.FontName=“幼圆” Do While Not EOF(1) 【】 whole＄=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text=【】。 Close Open"d：\test\smtexttxt"For Output As1 Print 1【】 Close End Sub

点击查看答案

第10题

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

Private Sub Command1_Click()

Dim a (10,10) As Integer

Dim i As Integer, j 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

next i