VB问题 ~谁来讲讲怎么做出来的~讲的细点好不好?

来源:百度知道 编辑:UC知道 时间:2024/05/22 23:49:28
11. 在窗体上添加一个名称为Command1的命令按钮,然后编写如下事件过程。
Option Base 1
Private Sub Form_Click()
Dim a
a=Array(1,2,3,4,5)
For I=1 To Ubound(A)
a(i)=a(i)+I-1
Next
Print a(3)
End Sub
程序运行后,单击命令按钮,则在窗体上显示的内容是_____.
(A) 4 (B) 5 (C) 6 (D) 7
12. 阅读如下程序:
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For I=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End if
Next
Print Sum
End Sub
程序运行后,单击窗体,输出解雇为_____.
(A) 13 (B) 14 (C) 27 (D) 15
13. 在窗体上添加一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For I=1 To 5
Sum=Sum+a(i)
Next I
x=Sum/5
For I=1 To 5
If a(i)>x Then Print a(i);
Next I
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是_____.
(A) 1 2 (

1 B
2 C
3 D

1、根据a(i)=a(i)+I-1当a(3)时,a(3)=a(3)+3-1
a(3)=3,所以答案5

2、If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i)取出能被3整除的数,3+9+15=27

3、 Sum=Sum+a(i) 等于15 x=3比3大的数就只有4 5了。

你自己装一个vb6跑一下不就可以了嘛