用VB生成每个小九宫格的9个字符’整个九宫格分为9个小九宫格,小九宫格的编号为:'0,1,2 '3,4,5 '6,7,8 Dim cellNo As Integer '小九宫格编号 For cellNo = 0 To 8 charNine = "" '撰写代码------------结束 Next行数
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/22 17:21:52
用VB生成每个小九宫格的9个字符’整个九宫格分为9个小九宫格,小九宫格的编号为:'0,1,2 '3,4,5 '6,7,8 Dim cellNo As Integer '小九宫格编号 For cellNo = 0 To 8 charNine = "" '撰写代码------------结束 Next行数
用VB生成每个小九宫格的9个字符
’整个九宫格分为9个小九宫格,小九宫格的编号为:'0,1,2 '3,4,5 '6,7,8 Dim cellNo As Integer '小九宫格编号 For cellNo = 0 To 8 charNine = "" '撰写代码------------结束 Next行数是0至8,列数是0至8,例如把第一行看作行数为0.用除3得几余几的方法
’整个九宫格分为9个小九宫格,小九宫格的编号为:
'0,1,2
'3,4,5
'6,7,8
Dim cellNo As Integer '小九宫格编号
For cellNo = 0 To 8charNine = ""
'撰写代码------------结束
Next
行数是0至8,列数是0至8,
例如把第一行看作行数为0
只需要写开始和结束之间的部分
用除3得几余几的方法
用VB生成每个小九宫格的9个字符’整个九宫格分为9个小九宫格,小九宫格的编号为:'0,1,2 '3,4,5 '6,7,8 Dim cellNo As Integer '小九宫格编号 For cellNo = 0 To 8 charNine = "" '撰写代码------------结束 Next行数
*注释以内的部分就是你所谓的“开始-结束”部分.
用一个表达式通用地表示每一行每一列的值,这个式子就是:3 * (i Mod 3) + j Mod 3
完美解决.
Private Sub Command1_Click()Dim cellNo As Integer
For cellNo = 0 To 8 '行
charNine = ""
'
Next cellNo
End Sub