全国计算机等级考试二级VB程序设计模拟试题二【程序题】
分类: 计算机
时间: 2024-05-11 20:35:06
作者: 全国等级考试资料网
写出下列程序的正确运行结果(每题5分，共10分)
1. Private Sub Command1_Click( )
x=Int(Rnd)+3
If x^2>8 Then y=x^2+1
If x^2=9 Then y=x^2-2
If x^2<8 Then y=x^3
Print “y=”;y
End Sub
2. Public Sub Swap(ByVal x As Integer, y As Integer)
Dim t As Integer
t=x: x=y: y=t
End Sub
Private Sub Command1_Click( )
Dim a As Integer ,b As Integer
a=30: b=20
Swap a ,b
Print “a=”; a ;”b=”; b
End Sub
1. y= 7
2. a= 30 b=30