做一个程序，可以在1至100这100个数字里边，能随机抽取1个数字出来。哪位是学计算机的，帮忙编个程序

如题所述

第1个回答 2012-05-29

Dim bStop As Boolean
Dim n(1 To 100), i, j, q

Private Sub Command1_Click()
Command1.Visible = False
Randomize Timer
While j < 10
q = Int(Rnd(1) * 100 + 1)
Label1.Caption = q: DoEvents
If n(q) = 0 And bStop = True Then
Print q
n(q) = 1
j = j + 1
bStop = False
End If
Wend
End Sub

Private Sub Command2_Click()
bStop = True
End Sub

Private Sub Form_Load()
For i = 1 To 100
n(i) = 0
Next
j = 0
bStop = False
End Sub追问

这是用什么编的程序，C语言会吗

追答

这是vb语言

本回答被提问者采纳

相似回答

python产生1到100的随机数是多少?答：python产生1到100的随机数是机的“提示”可以简单地从一系列预制提示中随机选择，如果有5个预制提示，则可以在1-5之间选择一个随机数。如果是为了得到随机的单个数，多考虑random模块；如果是为了得到随机小数或者整数的矩阵，就多考虑numpy中的random函数，对于random模块的函数调用方法的记忆，可以多从它...

...1--100之间的随机数一共一百个,每行显示10个数字,而且这答：这样就简单了，你先生成一个数组（1-100），然后使用此函数将数组随机打乱，这样就生成了无重复的随机数组。以下代码亲测可行。<?php numbers = range(1,100);//生成1-100之间的数组。srand((float)microtime()*1000000);//建立随机种子 shuffle($numbers);//打乱数组 i=0;//换行标记 foreach ...

...随机分配给客户一个1-100之间的数字,然后将这答：很简单。在JSP中是可以嵌套JAVA代码的，如 < Random r = new Random();int answer= r.nextInt(100);request.getSession.setAttribute("answer",answer);> 保存随机数到session，判断，request.getParameter("guessNumber").equals(request.getSession.getAttribute("answer"))根据结果跳转到不同的页面，...

c++如何从0、1、2这三个数中随机产生一个数?给我写个程序,100分答：include <iostream> include <stdlib.h> include using namespace std;int main(){ srand((unsigned)time(NULL)); //seed int n=rand()%3; //0~2 cout<<n<<endl;return 0;} 已测

java试题:给你一个1――100之间的整数,请猜测这个数。求代码答：GuessNumber{ public static void main (String args[ ]) { guess(); } static void guess(){ System.out.println("给你一个1至100之间的整数,请猜测这个数"); int realNumber=(int)(Math.random()*100)+1; int yourGuess=0; String str=JOptionPane.showInput...

大家正在搜

求1到100的和的程序编写1到100的和程序求1加到100的程序流程图怎么做一个程序如何做一个小程序 1到100累加的程序手机怎么做程序从1加到100程序程序100