Dim x As Single,y As Single,r As Integer
Private Sub Command1_Click()
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
Randomize
r = Int(Rnd * 1000) + 1
Circle (x,y),r,QBColor(Int((15 * Rnd) + 1))
End Su
Dim x As Single,y As Single,r As Integer
Private Sub Command1_Click()
x = Form1.ScaleWidth / 2
y = Form1.ScaleHeight / 2
Randomize
r = Int(Rnd * 1000) + 1
Circle (x,y),r,QBColor(Int((15 * Rnd) + 1))
End Su
最新问答: 求初二函数与几何动点题 难的请附答案 简单的就不用麻烦你了 大家觉得全息宇宙 一元宇宙存在吗? 小华骑着一辆自行车在平直公共路上匀速行驶,过了2min通过了600m的路程.假设自行车在匀速行驶中受到的阻力为100n请 除了三棱镜以外还有什么方法可以使太阳的光分散? They walked ____the river.A.cross B.across C.through D.for 关于电势能、电势、电场强度、电场力做功、静电力做功有什么规律性语句,能全面地告诉我么, 古希腊神话的主要内容和特点是什么 双声词和叠韵词是什么? 设Sn=(1/n+1)+(1/n+2)……+(1/2n) (n是正整数)则Sn-1减Sn= 一天黄昏时刻,他突然肚子疼。老师和同学们立刻把他送到医院并看护他。用英语怎么翻译? 在一桶含盐10﹪的盐水中加入5千克食盐,溶解后,桶中盐水的浓度增加到20﹪.原来桶中有多少千克盐? 高三英语成绩怎样从110提到130 君子诚之为贵的意思 正弦 余弦 正切72度角的值 对生物进化的方向起决定作用的是( ) .解关于x的不等式x^2-4x+4-9a^2≥0 从0、2、3、4、7这五个数中,(1)选三个组成3的倍数的三位数,你能写几个? 在一对相对性状的遗传实验中,双亲只具有一对性对形状 为什么是错的 疼痛 名词 怎么翻译成英文我知道pain,还有别的表示方法吗。要名词,而且释义要准确地是痛 圆柱的底面半径扩大到原来的3倍,则高不变,底面周长扩大几倍?侧面积扩大几倍?底面积扩大几倍?体积扩大几倍?