VB while语句Private Sub Command2_Click()Dim x As SingleDim y A
lchywl2022-10-04 11:39:541条回答
VB while语句
Private Sub Command2_Click()
Dim x As Single
Dim y As Single
Randomize
x = Int(Rnd * 900) + 1
Randomize
y = Int(Rnd * 900) + 1
t = Text1.Text
r = 0
While r < t
If 0 < x And x < 300 Then
m = 1
ElseIf 3 < x And x
Private Sub Command2_Click()
Dim x As Single
Dim y As Single
Randomize
x = Int(Rnd * 900) + 1
Randomize
y = Int(Rnd * 900) + 1
t = Text1.Text
r = 0
While r < t
If 0 < x And x < 300 Then
m = 1
ElseIf 3 < x And x
已提交，审核后显示！提交回复
共1条回复
云儿86 共回答了15个问题 |采纳率86.7%- “t = Text1.Text”中t的数据类型为字符串型无法和整形比较,你可以将此句该为“t=int(Text1.text)或者t=val(Text1,text)”
- 1年前
相关推荐
大家在问
- 1请你观察如图，根据图中数字的变化规律，问号处应该填______．
- 2从氢气（H 2 ）、二氧化碳（CO 2 ）、氮气（N 2 ）、氦气（He）、二氧化硫（SO 2 ）五种气体中，按题意选择
- 3某银行储蓄所办理了七笔储蓄业务：取出9.5万元,存进5万元,取出8万元,存进12万元,存进25万元,取出10万
- 4大圆的半径是R,小圆的半径是大圆的半径的三分之二,则圆环的面积是多少?
- 5161.在自然状态下,生男生女的比例可能是 .
- 6晴朗的天空为什么是蓝色的?
- 7我悠悠忽忽地这段话选自课文《草虫的村落》,让我们体会到了作者在这次游历中感受到
- 8举例说明为什么"信息可以消除认识的不确定性"
- 9英语翻译摆在我们翻译工作者面前的任务是如何提高翻译质量的问题
- 10I ____________(很荣幸）to be ask to speak at the meeting .
- 11有5袋糖果,其中4袋糖果每袋450克,另1袋不是450克但不知道比450克重还是轻.
- 12西游记之三打白骨精的简介（100～200字啊）不要那么多!
- 13我亲爱的小阳阳英语怎么说
- 14请告诉我一个三角形知道了两个边求第三条边的长度的计算公式
- 15鸡比兔多15只,共90只脚,问鸡兔各几只?