If Command1.Caption = \"显示\" Then
Text1.Text = \"这是我的第一个VB程序\"
Command1.Caption = \"继续\"
ElseIf Command1.Caption = \"继续\" Then
Text1.Text = \"请你赐教，谢谢!\"
Command1.Caption = \"显示\"
Command2.Enabled = True
End If
End Sub
Private Sub Command2_Click()
End
End Sub
网址：http://www.chinavb.net 自己可以去看．
vb 举几个 逻辑运算符 应用的简单实例
1.not的例子 If Not Command1.Enabled = False Then Command1.Enabled = False end if 2.< 和 > 的例子 if a > b then print a else print b end if if a>(a-b) then print "b大于0"3.and 的例子 if a>0 and b>0 then command1.enabled=true else command1.enabled=false end...
vb经典程序100例(vb经典程序例题及分析)
偶数和=（n\/2）*(2+n)\/2 大一VB使用循环结构编写程序，求2+4+6+8+到100这个用循环语句计算比较方便，例如dowhile语句，doloop语句隐轮，fornext语句都可以 fornext语句举例：PrivateSubCommand1_Click()Dimi%,iSum Fori=0To4Step2 iSum=i+iSum Debug.Printi Debug.Print Next Debug.PrintiSum ...
vb中的for循环的where和exit for具体什么时候用?来两个简单点的例子
VB的For循环没有where，只有Exit For。For...Next 循环，对于知道了循环起始和终止值的情况来说，使用起来更方便。Exit For：当程序执行到此处，自动退出本层循环。实例1：求1+2+3+……100的和 Dim i, S As Integer i = 0 S = 0 For i = 1 To 100 S = S + i Next i Print "s=...
VB排序算法列举实例
(1) 从第一个元素开始，将相邻的数比较，若为逆序，就交换，比较完一轮，最大的数已沉底，成为数组中的最后一个元素a(n)(2) 对a(1)和a(n-1)的n-1个数进行同(1)的操作，次大的数放入a(n-1)中，完成第二轮排序。(3) 进行n-1轮排序，所有的数排序完毕。Dim a%(), i%, j%, n...
一个简单的Visual Basic程序的创建实例
代码文件 Form1.vb :Public Class Form1 Dim clickCount As Int32 Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click If (clickCount Mod 2) = 0 Then Label1.Text = "这是我的第一个VB程序"Command1.Text = "继续"Else L...
VB 程序实例:设计登录程序,用户名(rain)和密码(345)匹配则进入下一个...
先把登录的界面设计好（输入用户名的是text1，输入密码的是text2）把text2的passwordchar值设为“*”，这样当用户输入密码时，显示的字符就是“*”了。接着设计用户跳转的页面（可自己设计）欢迎界面 然后，回到form1，鼠标左键双击确定按钮，进入代码窗口，输入：If Text1.Text = "rain" And Text2...
急急急,题目 找出一个可以用VB语言编程解决的实际问题,并介绍解决问 ...
算法分析：利用迭代法，若某水手面临y个椰子，则他前一个水手面对的是 y*5\/4+1个椰 子，依次类推。若对某一个整形y经过上述5次迭代都是整数，最后的结果即是所求。于是，x取值从1开始，y取值从5x+1开始，按y*5\/4+1进行5次迭代中若某一次不是整形则返回x曾1，再试，直到5次迭代的y全是...
BarTender中VB脚本简单运用
很多人一定对BarTender条码打印软件中的VB脚本十分感兴趣，因为它可以让数据连接变得方便。但是对于新手来说，VB脚本运用起来还是有一定难度的，本文小编给大家介绍一个VB脚本简单运用的实例。在BarTender 10.1设计模板中，标签上有三个文本，分别为净重、毛重和米长。毛重=净重+0.5，米长=净重*3.5，...
VB里面能不能实例说下if语句的嵌套形式和多重分支语句,请贴出代码看 ...
"o" Then a(i) = "O"ElseIf a(i) = "u" Then a(i) = "U"End If Next Text1 = ""For i = 1 To m Text1 = Text1 + a(i)Next 其实嵌套形式和多重分支只要注意每一个IF 都要跟一个END IF 而且每一个IF后的下一个循环里面返回值都是返回到了开头而不是上一个IF循环 ...
求一vb实例-要求进度条按数字的百分比显示!邮箱184400843!发的话先...
Private Sub Form_Load()ProgressBar1.Max = 100 ProgressBar1.Min = 0 End Sub Private Sub Text1_Change()If Val(Text1.Text) >= 0 And Val(Text1.Text) <= 100 Then ProgressBar1.Value = Val(Text1.Text)End If End Sub 控件应该会添加吧 ...
