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

1. Private Sub Command1_Click()

x = 0

n = InputBox("")

For i = 1 To n

For j = 1 To i

x = x + 1

Next j

Next i

Print x

End Sub

程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是:

2. Private Function f(m As Integer)

If m Mod 2 = 0 Then

f = m

Else

f = 1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer

s = 0

For i = 1 To 5

s = s + f(i)

Next i

Print s

End Sub

单击命令按钮后，程序的运行结果为：

1、6

2、9

• 2005年 俄语专业四级试卷（一）
• 历年大学俄语四级考试真题12 :答案解析
• 历年 大学俄语四级考试真题12
• 历年大学俄语四级考试真题11 :答案解析
• 2018年bec商务英语初级写作：业务介绍信
• 2018年商务英语考试经典句子翻译（10）
• 2018年商务英语考试经典句子翻译（8）
• 2018年商务英语考试经典句子翻译（2）
• 2017年商务英语BEC高级阅读练习题（三十）
• 2017年商务英语BEC高级阅读练习题（二十九）