作业帮 > 综合 > 作业

求教一道VB代码编程题目:取随机函数[20,300]中50个能被6整除的数据,要求每行输出4个.急求!谢谢各位

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 08:26:13
求教一道VB代码编程题目:取随机函数[20,300]中50个能被6整除的数据,要求每行输出4个.急求!谢谢各位
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 50
For j = 1 To 4
Print Int(Rnd * 46 + 4) * 6;
Next j
Print
Next i
End Su