用VB生成每个小九宫格的9个字符

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/07/09 11:21:33

用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得几余几的方法

*注释以内的部分就是你所谓的“开始-结束”部分.用一个表达式通用地表示每一行每一列的值,这个式子就是：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

再问：有几个不明白的地方，麻烦指教，Thx! 1) cellno=3 * (i Mod 3) + j Mod 3，即cellno是每个单元格在该小九宫格里的序号，这个我明白了，但是，cellno在题干中应该是小九宫格在整个九宫格中的序号。 2)cellno 不是行，而是i是行，但是我感觉在你的答案里把cellno 当行了？
再答：程序设计最困难的是不知道目标。“ '本部分功能生成每一小九宫格的9个字符'”这句话怎么理解，每一个小九宫格的9个字符不都是"012345678"吗，需要生成吗，生成后怎么表示，是需要求出坐标值还是单行输出。可以HI交流，不要在此追问。