早教吧作业答案频道 -->其他-->
VB随机函数初学..PrivateSubCommand1Click()DimaAsIntegerDimx,yAsSingleFori=1To10x=Val(Text1.Text)y=Val(Text2.Text)a=Int(y*Rnd+x)Text3=aNextEndSubPrivateSubCommand2Click()UnloadMeEndSub这个
题目详情
VB随机函数初学.. Private Sub Command1_Click() Dim a As Integer Dim x, y As Single For i = 1 To 10 x = Val(Text1.Text) y = Val(Text2.Text) a = Int(y * Rnd + x) Text3 = a Next End Sub Private Sub Command2_Click() Unload Me End Sub 这个是一个随机抽取的语句,我想要它在抽取的时候排除已经抽取过的,这样写有没有错,还有我觉得我这样写其实有些步骤可以省略的是不是,还有没有其他写法,(小白)谢谢
▼优质解答
答案和解析
用数组可以,懒得自己写的话用现成的Dictionary也可以: Dim oDict As Dictionary Private Sub Command1_Click() Dim a As Integer Dim x, y As Single For i = 1 To 10 x = Val(Text1.Text) y = Val(Text2.Text) a = Int(y * Rnd + x) If oDict.Exists(a) Then Exit Sub ' 如果a已经存在就不执行后面的语句 oDict.Add a, 0 ' 否则把a加入到字典里 Text1 = a Next End Sub 不过需要添加一个引用 才可以使用DIctionary
看了VB随机函数初学..Priva...的网友还看了以下:
提示:D-C=0A-B,A-D,D-C,D-E,E-F=1A-D,C-F=2A-B,D-E,E-F 2020-04-06 …
● 给定C 语言程序: int foo( int x, int y, int d){if( x != 2020-05-26 …
● 执行 C 程序代码 “int a = 1; int b = 0; int c = 0; int 2020-05-26 …
执行C程序代码“int a=1;int b=0;int c=0;int d=(++a)*(c=1); 2020-05-26 …
给定C语言程序: intfoo(int x, int y,int d) { if ( x !=0 ) 2020-05-26 …
执行C程序代码“int a=1;int b=0;int c=0;int d=(++a)*(c=1); 2020-05-26 …
几个C++小题,帮我看下.(a)intcar=1024,auto=2048;(b)intival= 2020-07-14 …
平静呼吸时,肺内压在下列哪一个时相中低于大气压?()A.吸气初B.吸气末C.呼气初D.呼气末E.吸气 2020-11-05 …
现有A、B、C、D、E五种初中化学常见的物质,其中A、C、D是氧化物,C是红棕色固体,D是黑色固体, 2020-11-26 …
编写一个函数,给定两个整数(被除数和除数),计算二者的商和余数.由于整数不能除0,该函数的返回值.i 2020-12-08 …