66问答网
所有问题
当前搜索:
vb随机生成两位数
做
vb
程序,单击按钮1,
随机产生
100个
两位数
,统计个位是1的个数,并在窗体...
答:
Private Sub Command1_Click() Randomize For i = 1 To 100 x = Int(Rnd * 90) + 10 Print x; If i Mod 10 = 0 Then Print If x Mod 10 = 1 Then n = n + 1 Next i Print Print "个
位数
是1的数有"; n; "个"End Sub ...
VB
语言,
随机产生
一个
两位数
,求其个位数字和十位数字的和;将个位数字和...
答:
Private Sub Command1_Click() Randomize (Timer) Dim n As Integer n = Int(Rnd * 90 + 10) Print n, Print n \ 10 + n Mod 10, Print Format(n \ 10 + (n Mod 10) * 10, "00") End Sub
vb产生两位
的
随机数
,请问哪里错了
答:
int(Rnd*90)
产生
0 到 89 范围内的整数 再加上 10 得到 10 到 99 范围内的整数
VB中
用
随机
函数
产生
一个
两位
的随机正整数的公式是什么?
答:
INT((RND*B-A+1 )+A)
vb
随即
产生两位
正整数30个,显示在文本框1中,求出其中的素数,显示在文本...
答:
Dim a(1 To 30) As Integer Private Sub Command1_Click()Randomize For i = 1 To 30 '
生成
30个
两位随机
整数,并存放在Text1中 a(i) = Int(Rnd * 90 + 10)Text1.Text = Text1.Text & Str(a(i)) & Space(2)Next End Sub Private Sub Command2_Click() ' 判素数 For i ...
VB
:
随机产生
10个
两位数
,按大到小递减次序排列,并将排序结果显示出来...
答:
已经写好
VB
的程序,并经过运行调试。代码如下:Private Sub Command1_Click()Dim a(100) As Integer Randomize For i = 1 To 10 x = Rnd * 90 + 10 a(x) = a(x) + 1 Next i For i = 10 To 100 For j = 1 To a(i)Print i;Next j Next i Print: Print End Sub ...
vb编程
:
随机生成
n个
两位
正整数,在窗体上输出排成2行输出,找出大于其平 ...
答:
n = 10 ReDim a(10) As Integer For i = 1 To n a(i) = 10 + 90 * Rnd Print a(i);If i = n \ 2 Then Print Next m = 0 For i = 1 To n m = m + a(i)Next v = m / n Print For i = 1 To n If a(i) > v Then Print a(i);Next End Sub ...
VB
题
随机生成
100个
两位数
整数,并统计出小于等于40,大于等于70 及大于...
答:
suzu(i) = Rnd * 89 + 10 Next For i = 1 To 100 Select Case suzu(i)Case 0 To 40 n40 = n40 + 1 Case 70 n70 = n70 + 1 Case 71 To 100 n71 = n71 + 1 End Select Next Print "小于40的个数:"; n40 Print "大于等于70 的个数:"; n70 + n71 Print "大于70的...
用
vb编程 随机产生两位
整数构成的五行五列行列式然后编程计算每行的均值...
答:
Private Sub Command1_Click() Dim a(6, 6) For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 10) + 10 Print a(i, j), a(i, 6) = a(i, 6) + a(i, j) Next j Print a(i, 6) / 5 Next i For j = 1 To 5 For i = ...
vb随机产生
10个
两位数
,并找出最大数和最小数,显示出来
答:
For i = 0 To 9 a(i) = Int(Rnd() * 89 + 10) '
产生
10-99的10个
两位随机数
If a(i) >= max Then max = a(i) '比较求最大值 If a(i) <= min Then min = a(i) '比较求最小值 Print a(i); '输出产生的10个两位随机数 Next i Print("max=" & max) ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机生成10个两位奇数
vb中随机生成100个两位整数
vb随机生成1到100随机数
vb随机产生10个两位数
vb随机生成三位数
vb随机产生两位整数
vb随机生成一个四位整数
vb随机产生4个3位数
vb随机产生四位整数