文章责编:陶玉良
看了本文的网友还看了学历| 高考 中考 考研 自考 成考 外语| 四六级 职称英语 商务英语 公共英语 资格| 公务员 报关员 银行 证券 司法 导游 教师 计算机| 等考 软考
工程|一建 二建 造价师 监理师 咨询师 安全师 结构师 估价师 造价员 会计| 会计证 会计职称 注会 经济师 税务师 医学| 卫生资格 医师 药师 [更多]
例如:有循环:for I=n1 to n2 step n3 下列哪些语句会影响循环次数( )
A. n1=n1+I
B. n3=2*n3
C. n2=n2+n3
D. I=I+n3
2、Do------Loop (While,Until)
例如:运行下面的程序,单击窗体后在窗体上的内容是( );若将程序中的A语句与B语句的位置互换,再次执行程序,单击窗体后在窗体上显示的内容是( )
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 0: b = 0
Do While a <= 8
a = a + 2 'A语句
b = b + a * a 'B语句
Loop
Print a, b
End Sub
例如:窗体上显示的结果:
Private Sub Form_Click()
Dim p As Integer, i As Integer, n As Integer
p = 2: n = 20
For i = 1 To n Step p
p = p + 2
n = n - 3
i = i + 1
If p >= 10 Then Exit For
Next i
Print i, p, n
End Sub
一、 InputBox函数
MsgBox函数 (注意参数含义及顺序)
x=InputBox(_____,______,_______)
写出显示下图信息框的MsgBox函数
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |