visualbasic基础代码(visualbasic教程)
关于Visual Basic6.0新建程序/基本代码介绍
方法/步骤
1、下载Visual
Basic6.0中文版/英文版
各大软件网站有下！
打开VB6.0新建“标准EXE”
其他都不行的哦。。。。。。。。
2、下面介绍按钮功能（注意顺序）
1.指针，拖动以及点击功能
2.字体，输入字体
3.TextBox，输入框
4.按钮，新建按钮
5.图片，插入图片
6.计时器，计时以及倒计时工具
3、点击Form1进行操作
并结合上步介绍的菜单功能制作软件
4、下面以倒计时软件为例：
1.点击计时器工具，并在Form1上的适当位置拖动来制作计时器
2.并更改属性，第二项改为False
第四项改为1000
3.往Form1加入三个输入框
4.点击输入框，加入代码：
MsgBox
"欢迎使用"If
h
=
And
m
=
And
s
=
Then
Timer1.Enabled
=
FalseElse
Timer1.Enabled
=
Not
(Timer1.Enabled)End
IfIf
Timer1.Enabled
=
True
Then
h.Locked
=
True:
m.Locked
=
True:
s.Locked
=
TrueElse
h.Locked
=
False:
m.Locked
=
False:
s.Locked
=
FalseEnd
IfEnd
Sub
麻烦按照图中的问题写一下visual basic的代码，谢谢了！
Private Sub 焦点离开年龄输入框(sender As Object, e As EventArgs) Handles 年龄输入框.Leave
Dim 年龄 As Integer
If IsNumeric(年龄输入框.Text) Then ‘如果输入不是数值则提示
年龄 = CInt(年龄输入框.Text)
Else
提示标签.Text = "Your input not an age, please input a number!"
Exit Sub
End If
Select Case 年龄
Case Is = 50
提示标签.Text = "Too old!"
Case Is = 0
Me.Close()
Case Is = 10
提示标签.Text = "Too Young!"
Case Else
提示标签.Text = "Just right!"
End Select
End Sub
大于 50 和等于零都可以在前面，但是小于等于 10 必须在等于零后面，否则将 0 就等于小于等于 10 而不退出了。
Visual basic代码求助
Private Sub Command1_Click()
Dim a, b, c, d, e, f, n, m As Integer
Dim wzh
For a = 1 To 11
For b = 1 To 11
For c = 1 To 11
For d = 1 To 11
For e = 1 To 11
For f = 1 To 11
m = 0 'm=已经满足的条件
If f - a = 8 Then m = m + 1 '每满足一个条件m就加一
If c - d = 1 Then m = m + 1
If c 5 Then m = m + 1
If d 6 Then m = m + 1
If f Mod 2 = 0 Then m = m + 1
If m = 3 Then '如果超过3个条件，那么
n = n + 1
wzh = Format(Str(a), "00") Format(Str(b), "00") Format(Str(c), "00") Format(Str(d), "00") Format(Str(e), "00") Format(Str(f), "00")
Text1.Text = Text1.Text wzh + vbNewLine
End If
End If
Next f
Next e
Next d
Next c
Next b
Next a
Print Tab(37); "共有" n "种组合！"
End Sub
visual basic 一些代码的意思
广义的VB语言有很多，如在OFFICE中使用的宏我们称为VBA，在脚本中使用的我们成为VBS，楼上的语法是属于ASP中的VBS,另外真正意义上的VB就是我们编写软件使用的VB.
VB语言很灵活，他并不像C++语言一样严谨。如：你使用变量时并不一定要求你先声明变量。如果你想系统的学习VB，那最好还是去看看书。我在这里简单的说说基本语句就是了：
变量定义：
定义私有变量：
Private 变量名 As 数据类型 等价于 Dim 变量名 As 数据类型
定义公有变量：
Public 变量名 As 数据类型
判断语句：
If 条件 Then
...
Else
...
end if
衍生：
If 条件 Then
...
ElseIf 条件 then
...
else
...
end if
选择执行：
Select Case 变量
Case 值1
...
Case 值2
...
Case Else
...
End Select
循环:
For i=0 to 100
...
Next
VB语言的书写为每行一句，结尾无需任何符号
如果想在一行些多条语句，则语句间以:号分割,如：
Dim x,y
x=10:y=x