用qbasic 产生随机数字(菜鸟求助)

发布网友发布时间：2024-10-12 11:25

共2个回答

热心网友时间：2024-10-14 12:13

不知道和VB区别大吧.我给个VB的,希望能给你启发:

Private Sub Command1_Click()
Dim max%, min%, n%, i%, j%
'max变量放随机数的最大取值
'min变量放随机数的最小取值
'n变量放随机个数
'j放每行输出几个数字
Cls
min = 1 '这里演示产生的随机数最小为1
max = 10000 '这里演示产生的随机数最大为10000
j = 8 '每行输出8个数字
Randomize '随机种子
n = Int(Rnd * 50 + 51) '输出总个数任意给定? 这里是随机51-100个

For i = 1 To n
Print Format(Int(Rnd * (max - min + 1) + min), String(Len(CStr(max)), "@"));
If i Mod j = 0 Then Print
Next
End Sub

热心网友时间：2024-10-14 12:20

将VB妮可的VB代码修改为QBASIC代码，在QB45上运行通过：
10 Dim sj%, max%, min%, n%, i%, j%
20 Cls
30 min = 1
40 max = 1000
50 j = 8
60 Randomize
70 n = Int(Rnd * 50 + 51)
80 For i = 1 To n
85 sj = Int(Rnd * (max - min + 1) + min)
90 Print sj;
105 If i Mod j = 0 Then Print
110 Next
120 End