dim a as string
Randomize
a = Int(Rnd * 20)
这儿a的随机数会有二十种情况,如果要实现a的每一种情况对应一种指令(比如:
如果a=1时,image1.picture=loadpicture(app.path+"\1.bmp")
如果a=2时,image1.picture=loadpicture(app.path+"\2.bmp")
如果a=3时,image1.picture=loadpicture(app.path+"\3.bmp")
如果a=4时,image1.picture=loadpicture(app.path+"\4.bmp")
如果a=5时,image1.picture=loadpicture(app.path+"\5.bmp")
如果a=6时,image1.picture=loadpicture(app.path+"\6.bmp")
如果a=7时,image1.picture=loadpicture(app.path+"\7.bmp")
如果a=8时,image1.picture=loadpicture(app.path+"\8.bmp")
)
vb 实现满足多个条件中的一个就执行一个指定命令
dim a as string Randomize a = Int(Rnd * 20)image1.picture=loadpicture(app.path & "\\" & a & ".bmp")
vb中的一个循环
在VB编程语言中,一个循环是一种控制结构,用于重复执行一段代码直至满足特定条件为止。这个例子展示了如何使用循环来生成一个随机数序列。程序首先在通用区声明了一个整型变量i。当程序启动时,主窗体加载事件会触发,此时i被初始化为0。接着,用户可以通过点击命令按钮(Command1)激活循环。在点击按钮时...
VB里一个命令想要重复多次,但是要等这个命令的过程执行完以后再开始下...
设计一个循环体,在循环体内加一个条件判断是否满足,或满足跳出循环就行了。
VB combobox怎么实现可多选下拉列表中的内容?
select end 下面比如B列判断之类的,到最后执行SQL查询命令,把结果显示出来就OK了。
如何理解vb程序中的debug和execute
会在VB界面下方的“立即”窗口中显示出a的值,这样你就不必修改程序的界面来显示a或者中断程序来查看a。再比如当你在某处需要a>5的时候,你可以加一句Debug.Assert(a>5)当a<=5的时候程序执行到此处就会暂停,然后你就可以查看a为何没有满足a>5的条件,从而找到代码错误。Debug的一个重要优点是,当你把程序编译成...
vb 中print如何实现i 每五个数一行
定义一个计数器m,在你输出的后面添一个m=m+1if m mod 5=0 then print '这里不要分号 懒狗炸弹 | 发布于2010-04-27 举报| 评论 2 0 Private Sub Command1_Click()ClsDim m As IntegerDim n As IntegerDim i As IntegerDim k As IntegerDim j As IntegerDim s As Integerm = Val(Text1.Te...
毕业设计要用vb作一个程序 本人vb新手 希望有vb大侠能帮帮忙 指导我一...
Visual Basic通过事件来执行对象的操作,例如命令是一个对象,当用户单击该按时,将产生一个单击事件,而在产生该事件时执行一段程序,用来实现指定的操作.在用Visual Basic设计应用程序时,不必建立具有明显开始和结束的程序,而是编写若干个微小的子程序,即过程.这些过程分别面向不同的对象,由用户操作引发某个事件来驱动完成...
我想用VB做一个弹球游戏,但是为什么我的计分器不会一直加分?
看你代码 你已经将scores 定义为全局变量 但是你给scores赋值 是不是有条件的 如果没有满足条件 没有执行到 scores = socres + 1 这句代码 自然不会加分 你应该逐个排除你if 条件语句 比如你是用多个条件 你可以先注释掉多个条件的其中一个 或者 多个 逐步排除法 看哪个条件不满足 从而调整你的...
VB中的循环语句中的for... 是怎么用的?
回答如下:如:For i=0 to 999 '这里省略Step说明步长为1循环体Next i说明从0到999,循环1000次。又如:For i=20 to 0 Step -2循环体Next i说明从20到0,以步长为-2,循环10次 for语句是循环语句,它的格式是:For 变量=初值 To 终值 〔Step 步长]循环体Next 变量 ...
会VB的帮忙做几个简单的题!
当文本框编写有KeyPress事件时,在文本框中输入一个字符后,就立即执行了一次其KeyPress事件。(√)Rem和英文单引号(‘)都可用于注释语句(√)多个IF语句可共有一个End IF语句。(×)Do Until……Loop语句执行时,先判断条件,如果满足条件则执行循环体中的语句。(×)Do……Loop While语句执行...