做肺功能检查多少钱:紧急做题目

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/28 17:29:22
7. 执行下面的程序,当单击窗体时,窗体上显示内容的第一行是【 14 】,第二行是【 15 】。
Private Sub P1(x As Integer,ByVal y As Integer)
Static Z As Integer
x=x+z: y=x-z: z=10-y
End Sub
Private Sub Form_Click()
Dim a As Integer,b As Integer,z As Integer
a=1:b=3:z=2
call P1(a,b)
print a,b,z
call P1(b,a)
8.设有如下的Visual Basic表达式:
5 * x^2 – 3 * x – 2 * Sin(a)/3
它相当于代数式【 16 】 。
9.执行下面的程序段后,s的值为 【 17 】 。
s = 5
For i = 2.6 To 4.9 Step 0.6
s = s+1
Next i
10.为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【 18 】 。
11. 执行下面的程序段后,b的值为【 19 】 。
a=300
b=20
a=a+b
b=a-b
a=a-b
12. 以下程序段的输出结果是【20】 。
num=0
While num<=2
num=num+1
Print num
end While
13 在窗体画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后,单击命令按钮,输出结果是【 21 】 。
15. 在窗体画一个命令按钮,然后编写如下过程:
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为【 22 】
14.下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在【23】、【24】、【25】处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)
For i=【 23 】
For j=【24 】
If a(i) 【 25】 a(j) Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub