2011年计算机等级考试二级VB考点及习题(4)

Private Sub Form_Click()

Dim x As Integer, y As Integer

Dim z As Single

x = 0.2

y = 1

If (x >= 1) Then

z = Log(x)

ElseIf x >= 0 And x < 1 And y >= 0 Then

z = 2 * x - y

Else

z = Exp(x + y)

End If

Print "z=" + Str(z)

End Sub

结果： z=-1

2、Select Case语句

Private Sub Form_Click()

Dim ch As String, i As Integer

ch = "c"

Select Case ch

Case "A", "a"

i = 1

Case "B", "b"

i = 2

Case "C", "c"

i = 3

Case "D", "d"

i = 4

Case Else

i = 5

End Select

Print "运行结果" + Ucase(ch) + Str(i)

End Sub

结果：运行结果C3

② 循环结构

1、For------Next (循环次数的计算)

特例：

• 2019造价工程师《土建工程》模拟试题及答案（2）
• 2019年英语四级阅读理解专项练习（十六）
• 2019年英语四级阅读理解专项练习（十七）
• 2019年英语四级阅读理解专项练习（十八）
• 2020年二级建造师《市政实务》预习题及参考答案（10）
• 2019年房地产估价师考试制度与政策章节精讲题：城镇土地使用税
• 2020年监理工程师考试《案例分析》备考试题（9）
• 中国人事考试网2019年浙江监理工程师成绩查询网站
• 2019年青岛监理工程师成绩查询时间什么时候？
• 2019年湖南岩土工程师基础考试科目有哪些?