11问答网
所有问题
当前搜索:
vb产生10到100的随机数
高分求下面4道
VB
题目的解答
答:
Dim ab(10) As Integer Private Sub Command1_Click()Label1.Caption = "十个数:"Label2.Caption = "
生成数
:"Dim i As Integer For i = 0 To 9 ab(i) = i /*如果要
随机生成十
个字,请把这里的=i替换 成 int(rnd*
100
+1)*/ Label1.Caption = Label1.Caption & " " & ab(i)...
vb
两个
随机数
整除
答:
很简单,就是这个 Randomize b = Int(Rnd * 10) + 1 c = Int(Rnd *
100
)If c Mod b = 0 Then Label1.Caption = Str© + "/" + Str(b)
希望大家帮一下~关于
VB
程序设计的
答:
'题目:窗体中有两个List列表,及4个按钮。' 程序功能,单击“
产生随机数
”按钮,
随机产生
20个随机数填入List1中 ' “保存”按钮作用是将数组内容写到文件中 ' “读出”按钮作用是将文件内容读到数组中 ' “结束”按钮作用是结束程序 '请在【?】处填入正确的内容 '--- 'Dim d(1 ...
请帮我解决下面4题
vb
题
答:
要点时间,我这电脑没装
VB
,第4题简单些 dim e as simple e=1 for i= 1 to
10
dim x as intiger x=1 for j=1 to i x=x*i next j e=e+1/x next i print e
求救~~~
VB
问题急急急~~如何
产生随机的
n个和为m的正整数,并且
生成
在自...
答:
其中
产生随机数
是重点,要用到函数a(i) = Int(f * Rnd()) + 1 代码:Private Sub Command1_Click()Dim Application As Object Dim WorkBook As Object Dim Sheet As Object Set Application = CreateObject("Excel.Application") '建立EXCEL对象 Set WorkBook = Application.Workbooks.Add() '建立...
求救:
vb
问题在线等
答:
Private Sub Command1_Click()Dim A(1 To 80)Dim JiShu Dim OuShu Dim Sum Dim i, j, temp Randomize '初始化随即种子,避免每次产生
的随机数
相同 For i = 1 To 80 A(i) = Int(Rnd() * 90) + 10 '随机
产生10 到
99的整数并存到数组A中 Next Cls Print "
随机产生
的80个10到99...
VB
随机产生
一个三位正整数,然后逆序输出,
产生的数
与逆序数同时显示
答:
Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer Dim i As Integer, j As String i =
100
+ Int(Rnd * 900)a = Int(i / 100)b = i Mod 100 c = b Mod 10 b = Int(b / 10)j = c & b & a MsgBox i & "," & jEnd Sub ...
VB的
代码,很简单的。
答:
Private Sub Command1_Click()a = Int(Rnd * (995) + 5)b = Int(Rnd * (995) + 5)If a > b Then text2.Text = a text1.Text = b Else text2.Text = b text1.Text = a End If End Sub Private Sub Command2_Click()a = 10 b =
100
For i = a To b If i Mod 2...
vb
帮解决。
答:
朋友,用文本框(textbox)不好,你用列表框(listbox)第一个问题:随机
产生10
个两位
随机数
,并按从小到大的顺序在窗体的文本框中输出 如下:你在窗体上放2个列表框(listbox),记得把这2个列表框拉大点,在输入以下代码:Dim a(1 To 10) As Integer Private Sub Form_Load()Randomize For i = 1 ...
VB随机
函数
答:
int(rnd*(67+1)+28)rnd *(大数-小数+1)+小数 或者 (大数-小数)* rnd+小数 int(67*rnd+28)
棣栭〉
<涓婁竴椤
34
35
36
37
39
40
41
42
43
涓嬩竴椤
灏鹃〉
38
其他人还搜