急!!!!VB考试中!!

来源：百度知道 编辑：UC知道 时间：2024/05/09 16:46:44
填空
1.Shell函数的作用是在程序运行过程中调用一个__________文件。
2.有多分支语句：Select Case x
Case ……
……
End Select
要判断x的值在大于10的范围内，则Case后是表达式应写成_____________。
3.下列程序按递增顺序排列数组元素。
Private Sub Form_Click()
Dim a, n%, m%, i%, tag As Boolean
a = Array(1, 5, 6, 7, 4, 13, 23, 26, 31, 51)
n = UBound(a)
For i = 0 To n - 1
tag = False
For j = 0 To n - 1 - i
If a(j) > a(j + 1) Then
______①______
______②______ : ______③______ : a(j + 1) = t
End If
Next j
If ______④_____ Then ______⑤______
Next i
For i = 0 To UBound(a)
Print a(i)
Next i
End Sub
4.函数过程add的功能是计算并返回两个参数之和，在下列程序段中填写缺少的语句。
Function add(a!, b!) as double
Dim c as double
c=a+b
______________
End Function
5.表达式50&+50!的值的数据类型为_______________。

操作题
产生20个不大于20的随机正

1 可执行
2 is>10
3 不晓得

4
dim Number(20) as integer
dim I as integer
dim A as integer=0
dim B as integer=0
for i=0 to 19
Number(i)=int(random()*20)
if Number(i)<10 then
A=A+1
else
B=b+1
endif
next i

A:小于10的个数
B：10到20之间的

1、可执行
2、IS>10
3、①dim t ②t=a(j) ③a(j)=a(j+i)
4、add=c
5、单精度型
dim Number(20) as integer
dim I as integer
dim A as integer=0
dim B as integer=0
for i=1 to 20
Number(i)=int(random()*20)
if Number(i)<10 then
A=A+1
else
B=b+1
end if
next i

A:小于10的个数
B：10到20之间的

?typename(50& + 50!)
Double