十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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"