试在窗体中以隔行方式输出10行随机英语大写字母，每行显示52个字符。这一题，我试过了，但是不对，下标会越界，而且，也不能按照输出10行

xiaoyanzixiaoyanzi8 2003-03-10 08:55:16

这一题，我试过了，但是不对，下标会越界，而且，也不能按照输出10行随机英语大写字母。

Private Sub Command1_Click()

Dim Letter(9, 51) As String
Dim I, j As Integer

For j = 1 To 10
For I = 1 To 52
LetterAscii = Int(Rnd * 26) + 65
Letter(I, j) = Chr(LetterAscii)
Print Letter(I, j);
Next I
Next j

End Sub

...全文

127 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-03-10

打赏
举报

楼上几位i,j颠倒了，应该这样：

Private Sub Command1_Click()

Dim Letter(9, 51) As String
Dim i, j As Integer
Randomize
For i = 0 To 9
For j = 0 To 51
Letter(i, j) = Chr(Int(Rnd * 26) + 65)
Print Letter(i, j);
Next
Print
Next
End Sub

hfrui 2003-03-10

打赏
举报

Dim Letter(9, 51) As String
Dim I, j As Integer

For j = 0 To 9
For I = 0 To 51
LetterAscii = Int(Rnd * 26) + 65
Letter(I, j) = Chr(LetterAscii)
Print Letter(I, j);
Next I
print '换行
Next j

用户　昵称 2003-03-10

打赏
举报

Private Sub Command1_Click()

Dim Letter(1 to 10, 1 to 52) As String '''''''''''''
Dim I, j As Integer

For j = 1 To 10
For I = 1 To 52
LetterAscii = Int(Rnd * 26) + 65
Letter(I, j) = Chr(LetterAscii)
Print Letter(I, j);
Next I
Next j

End Sub

ClientDC 2003-03-10

打赏
举报

Dim Letter(9, 51) As String
Dim I, j As Integer

For j = 0 To 9
For I = 0 To 51
LetterAscii = Int(Rnd * 26) + 65
Letter(I, j) = Chr(LetterAscii)
Print Letter(I, j);
Next I
Next j

实例186 使用线程实现从左向右以拉伸的方式显示图像第17章网络编程技术实例187 通过ip地址获取主机名称实例188 创建web页面浏览器实例189 获取网络信息及流量实例190 远程关闭与重启计算机实例191 设计点对...

符以及公式中包含的某字符)，也可以将搜索结果写入到一新的工作表中以备查。【工具箱选项】集成工具箱的基本选项设置。基本分为<显示设置区><隐藏功能区><自动备份区><工作表设置区><功能窗体显示区>。其中功能...

实例196 以全屏方式显示程序窗体 263 实例197 通过子窗体刷新父窗体 264 实例198 拖动无边框窗体 265 实例199 禁用窗口上的关闭按钮 267 实例200 向窗体中拖放图片并显示 268 实例201 使应用程序在进程中消失 269 ...

实例186 使用线程实现从左向右以拉伸的方式显示图像 353 第17章网络编程技术 357 实例187 通过ip地址获取主机名称 358 实例188 创建web页面浏览器 359 实例189 获取网络信息及流量 361 实例190 远程关闭与重启...