Private Sub Command1_Click()
涿鹿ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub
首先确定你想做什么，是想做网页呢还是想做个应用程序，或者是想搞个游戏来玩，然后确定想学的语言；是c/c++？？java？？vb？？.net？？或者其他？？
我是高中开始想学程序的，那个时候听说会做网页就能拿很高的工资，所以我就开始学html。那时候条件艰苦，电脑都没摸过，我就自己带个本子和笔去新华书店，看一天，就抄一天的笔记，这样过了两个月（只有星期天有时间，其他要上课），竟然还真把html给扛了下来，并且还学了点vbscript（只是记得一些语法，什么都不懂的。）。高二的时候开了计算机课，两个星期上一节，还真写了个“网页（有几个图片和文本，用table布局的）出来”。大学的时候，开了计算机课，第二学期学vb，我打开了vb后，画了一堆的控件进去，就是找不到地方来写程序，然后又看了半小时的书，终于知道了两个控件——button和text的用法，并且查到了在哪写入程序代码，于是就利用这么两个控件，写出了我这辈子第一个程序——你输入你的年龄或者出生时间，我就计算你的生肖属相，就这么简单的程序，让我感觉到自己到了天堂，而我的同学，大部分恐怕到现在还写不出那个程序来。后来的事实证明我只是没有明师，而我程序天赋真的是非常棒的。
后来我又自学了java，两个月后拿到sun的scjp认证。
我现在还是在学java，由于一直自己学，还得把自己的专业课学好，所以我最近半年来技术没提高可能还在后退。
以上就是我学习程序的基本经过了。
如果你想快点入门的话，建议你学vb开始吧，vb比较容易入手，你只要写一点点的代码就可以实现比较多的功能（因为你不要写gui），我就是一直在写小游戏中过来的，猜数字、算24、扫雷、拼图、打地鼠、打坦克………一个学期写了好多东西，把课落下了好多，重修了几门，所以现在都不敢了。
vb的趣味性会高一点，你去学学吧，不过，千万不能落了课去学哦~！·#
Private Sub Command1_Click()
Dim year As Integer, y As Integer
year = Val(InputBox("要判断的年份是："))
Call runnian(year, y)
If y = 1 Then
Print Str(year); Spc(2); "年是闰年!"
Else
Print Str(year); Spc(2); "年不是闰年!"
End If
End Sub
Public Sub runnian(n As Integer, x As Integer)
Dim leap As Integer
If n Mod 400 = 0 Then
leap = 1
ElseIf n Mod 4 = 0 And n Mod 100 0 Then
leap = 1
Else
leap = 0
End If
x = leap
End Sub
911 X + 1 916 还有 704 Y + 1 709，没有这么连续判断的。
是比较运算符，是运算符！+、-、*、/ 是算术运算符，也是运算符！
既然是运算符，就得按照运算优先级（所谓优先级，就是 * 运算比 + 运算要优先）从左到右依次计算，显然 911 X + 1 916 里两个 的运算优先级是相同的。
那么从左至右依次计算，先算 911 X + 1，得到结果 True（-1） 或者 False（0）（不要问我为什么True=-1，False=0，.NET里就是这么规定的），再计算 True / False 916，结果始终为 True。704 Y + 1 709 也是同理，两个 True 之间 And 了还是 True，结果当然是条件一直成立。
正确写法：
If (911 X + 1 And X + 1 916) And (704 Y + 1 And Y + 1 709) Then
s="123456"
s1=left(s,2) " " mid(s,3,2) " " right(s,2)
s1的值就是"12 34 56"
重庆分公司
重庆分公司
