代码如下：
Label1.Caption = "你好！请输入你的姓名"
Label2.ForeColor = vbRed
Label2.FontSize = 20
Label2.Caption = ""
Label2.Visible = False
Command1.Caption = "确定"
Command2.Caption = "继续"
Command2.Visible = False
Command3.Caption = "结束"
Command3.Visible = False
Text1 = ""
End Sub
Private Sub Command1_Click()
Label1.Visible = False
Label2.Caption = Text1.Text & "同学，你好！祝你学好VB程序设计"
Label2.Visible = True
Text1.Visible = False
Command1.Visible = False
Command2.Visible = True
Command3.Visible = True
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.Visible = True
Text1.SetFocus
Label1.Visible = True
Label2.Visible = False
Command1.Visible = True
Command2.Visible = False
Command3.Visible = False
End Sub
Private Sub Command3_Click()
End
End Sub
just do it youself!
一个VB小程序,请高手帮忙查错修改
End Sub Private Sub Text1_Change()x = val(Text1.Text)End Sub Private Sub Text2_Change()y = val(Text2.Text)End Sub 分析代码：点击Command1按钮时，将文本框Text3的内容设置为x+y的和。点击Command2按钮时，清空文本框text1、text2、text3的内容。点击Command3按钮时，程序结束。在Text...
用VB写一个小程序.
vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main()Open "c:\\temp\\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
一个VB的小程序,不知道该怎么写!
回答：Private Sub Timer1_Timer() Static x As Integer If (x = 0) Or (x > 10) Then x = 2 Cls Print x x = x + 1 End Sub
求助:求高人做个VB小程序,最简单的那种 百分悬赏
Label1.ForeColor = vbBlack End Sub Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = &H0& End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = ...
用VB制作小程序
Load() Randomize Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000) '生成100000-999999之间的随机数 Timer1.Interval = 1000 '一秒一次 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Static n As Integer n = n + 1 If n = 60...
vb小游戏代码 急求。。。
其他类似问题 2011-01-10 求VB小游戏代码。急求。 18 2012-08-09 求一个VB小游戏编程,要有代码的。。 29 2009-06-07 vb小游戏源代码 240 2014-12-24 求这个VB小游戏的代码 3 2012-01-08 求一个简单的VB小游戏代码 3 2012-11-21 求vb小游戏代码 2 更多类似问题 > 为你推荐: 特别...
一个VB小程序,要有三个窗口,第一个窗口含下一步,第二个窗口含上一步和...
Form1代码：Private Sub Command1_Click()Load Form2 Form2.Show Unload Form1 End Sub Form2代码：Private Sub Command1_Click()Load Form1 Form1.Show Unload Form2 End Sub Private Sub Command2_Click()Load Form3 Form3.Show Unload Form2 End Sub Private Sub Option1_Click()Command2....
VB 6.0 教我编一个小程序
File--New--Standard.exe--点击左侧的Commandbutton控件 然后再Form1中用鼠标画出一个按钮 然后双击该按钮：写这段代码a = MsgBox("Hello,welcome to VB world!")然后保存，运行 From1代码：Private Sub Command1_Click()End Sub Private Sub Button_Click()a = MsgBox("Hello,welcome to VB ...
VB编写小程序
代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))b = InputBox("请输入第二个数")c = InputBox("请输入第三个数")d = InputBox("请输入第四个数")sum = a + b + c + d aver = sum \/ 4 Print ...
请求VB高手帮忙,编个小程序,谢谢
Private Sub Command1_Click()Dim C, D As Double C = Val(Text1.Text) \\ Val(Combo1.Text)D = Val(Text1.Text) \/ Val(Combo1.Text) - Val(Text1.Text) \\ Val(Combo1.Text)If D <> 0 Then C = C + 1 Else D = C End If Text2.Text = C If D < 1 And D <> 0 ...
