课
程
程
资
讯
讯
综
合
合
第三章 VB程序设计语句
1. For循环
For <循环变量>=<初值> to <终值>[step 步长]
<循环体>
[Exit For]
Next <循环变量>
1) 多重循环
Do循环
格式一：Do While <条件> <语句块> Loop
格式二：Do Until <条件> <语句块> Loop
格式三：Do <语句块> Loop While <条件>
格式四：Do <语句块> Loop Until <条件>
2) 二重循环
1.典型案例：求100以内的素数。2.取矩阵对角线上的元素。3.打印“*”型图。
3) 程序范例：
Const n=5,m=4
Dim a(m,n)
Private Sub Command1_Click()
K=1
For i=1 To m
For j=1 To n
a(i,j)=k
k=k+1
Next j
Next i
End Sub
Private Sub Command2_Click()
Summ=0
For i=1 To m
For j=1 To n
If i=1 Or i=m Then
Summ=summ+a(i,j)
Else
If j=I Or j=n Then
Summ=summ+a(i,j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click()的作用是二维数组a 中存放1个 m行n列的矩阵;过程Command2_Click()的作用是
A) 计算矩阵外围一圈元素的累加和
B) 计算矩阵除外一圈以外的所有元素的累加和
C) 计算矩阵第1列和最后一列元素的累加和
D) 计算矩阵第1行和最后一行元素的累加和
| 广告合作：400-664-0084 全国热线：400-664-0084 Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号 珠峰网 版权所有 All Rights Reserved 
|
