全国计算机等级考试二级VB程序设计模拟试题一【程序题】

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

写出程序的正确运行结果（每题5分，共10分）

1. y=  7

2. a=30 b=30

• 2019注册岩土工程师基础考试精选练习题（5）
• 2018年—2011年岩土工程师考试真题汇总
• 2019年全国公共英语考试二级词汇和语法专项练习（5）
• 2019年全国公共英语考试二级词汇和语法专项练习（6）
• 2019造价工程师《土建工程》模拟试题及答案（2）
• 2019年英语四级阅读理解专项练习（十六）
• 2019年英语四级阅读理解专项练习（十七）
• 2019年英语四级阅读理解专项练习（十八）
• 2020年二级建造师《市政实务》预习题及参考答案（10）
• 2019年房地产估价师考试制度与政策章节精讲题：城镇土地使用税