vb.net判断生肖 vb十二生肖

用VB.NET编程，任意输入一个整数，判定该整数的奇偶性

Private Sub Command1_Click()

Dim i As Integer

i = Text1.Text

If i Mod 2 = 0 Then

MsgBox "偶数"

Else

MsgBox "奇数"

End If

End Sub

相关问答

Q1: 编程问题

首先确定你想做什么，是想做网页呢还是想做个应用程序，或者是想搞个游戏来玩，然后确定想学的语言；是c/c++？？java？？vb？？.net？？或者其他？？

我是高中开始想学程序的，那个时候听说会做网页就能拿很高的工资，所以我就开始学html。那时候条件艰苦，电脑都没摸过，我就自己带个本子和笔去新华书店，看一天，就抄一天的笔记，这样过了两个月（只有星期天有时间，其他要上课），竟然还真把html给扛了下来，并且还学了点vbscript（只是记得一些语法，什么都不懂的。）。高二的时候开了计算机课，两个星期上一节，还真写了个“网页（有几个图片和文本，用table布局的）出来”。大学的时候，开了计算机课，第二学期学vb，我打开了vb后，画了一堆的控件进去，就是找不到地方来写程序，然后又看了半小时的书，终于知道了两个控件——button和text的用法，并且查到了在哪写入程序代码，于是就利用这么两个控件，写出了我这辈子第一个程序——你输入你的年龄或者出生时间，我就计算你的生肖属相，就这么简单的程序，让我感觉到自己到了天堂，而我的同学，大部分恐怕到现在还写不出那个程序来。后来的事实证明我只是没有明师，而我程序天赋真的是非常棒的。

后来我又自学了java，两个月后拿到sun的scjp认证。

我现在还是在学java，由于一直自己学，还得把自己的专业课学好，所以我最近半年来技术没提高可能还在后退。

以上就是我学习程序的基本经过了。

如果你想快点入门的话，建议你学vb开始吧，vb比较容易入手，你只要写一点点的代码就可以实现比较多的功能（因为你不要写gui），我就是一直在写小游戏中过来的，猜数字、算24、扫雷、拼图、打地鼠、打坦克………一个学期写了好多东西，把课落下了好多，重修了几门，所以现在都不敢了。

vb的趣味性会高一点，你去学学吧，不过，千万不能落了课去学哦~！·#

Q2: 输入年份，编程判断是否为闰年 VB.NET

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

Q3: VB.net中的 and判断条件问题

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

Q4: VB.NET 如何将123456 显示成“12 34 56”，

s="123456"

s1=left(s,2) " " mid(s,3,2) " " right(s,2)

s1的值就是"12 34 56"