用VB.NET編程，任意輸入一個(gè)整數(shù)，判定該整數(shù)的奇偶性

Private Sub Command1_Click()

涿鹿ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來市場(chǎng)廣闊！成為創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：13518219792（備注：SSL證書合作）期待與您的合作！

Dim i As Integer

i = Text1.Text

If i Mod 2 = 0 Then

MsgBox "偶數(shù)"

Else

MsgBox "奇數(shù)"

End If

End Sub

編程問題

首先確定你想做什么，是想做網(wǎng)頁呢還是想做個(gè)應(yīng)用程序，或者是想搞個(gè)游戲來玩，然后確定想學(xué)的語言；是c/c++？？java？？vb？？.net？？或者其他？？

我是高中開始想學(xué)程序的，那個(gè)時(shí)候聽說會(huì)做網(wǎng)頁就能拿很高的工資，所以我就開始學(xué)html。那時(shí)候條件艱苦，電腦都沒摸過，我就自己帶個(gè)本子和筆去新華書店，看一天，就抄一天的筆記，這樣過了兩個(gè)月（只有星期天有時(shí)間，其他要上課），竟然還真把html給扛了下來，并且還學(xué)了點(diǎn)vbscript（只是記得一些語法，什么都不懂的。）。高二的時(shí)候開了計(jì)算機(jī)課，兩個(gè)星期上一節(jié)，還真寫了個(gè)“網(wǎng)頁（有幾個(gè)圖片和文本，用table布局的）出來”。大學(xué)的時(shí)候，開了計(jì)算機(jī)課，第二學(xué)期學(xué)vb，我打開了vb后，畫了一堆的控件進(jìn)去，就是找不到地方來寫程序，然后又看了半小時(shí)的書，終于知道了兩個(gè)控件——button和text的用法，并且查到了在哪寫入程序代碼，于是就利用這么兩個(gè)控件，寫出了我這輩子第一個(gè)程序——你輸入你的年齡或者出生時(shí)間，我就計(jì)算你的生肖屬相，就這么簡(jiǎn)單的程序，讓我感覺到自己到了天堂，而我的同學(xué)，大部分恐怕到現(xiàn)在還寫不出那個(gè)程序來。后來的事實(shí)證明我只是沒有明師，而我程序天賦真的是非常棒的。

后來我又自學(xué)了java，兩個(gè)月后拿到sun的scjp認(rèn)證。

我現(xiàn)在還是在學(xué)java，由于一直自己學(xué)，還得把自己的專業(yè)課學(xué)好，所以我最近半年來技術(shù)沒提高可能還在后退。

以上就是我學(xué)習(xí)程序的基本經(jīng)過了。

如果你想快點(diǎn)入門的話，建議你學(xué)vb開始吧，vb比較容易入手，你只要寫一點(diǎn)點(diǎn)的代碼就可以實(shí)現(xiàn)比較多的功能（因?yàn)槟悴灰獙慻ui），我就是一直在寫小游戲中過來的，猜數(shù)字、算24、掃雷、拼圖、打地鼠、打坦克………一個(gè)學(xué)期寫了好多東西，把課落下了好多，重修了幾門，所以現(xiàn)在都不敢了。

vb的趣味性會(huì)高一點(diǎn)，你去學(xué)學(xué)吧，不過，千萬不能落了課去學(xué)哦~！·#

輸入年份，編程判斷是否為閏年 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

VB.net中的 and判斷條件問題

911 X + 1 916 還有 704 Y +? 1 709，沒有這么連續(xù)判斷的。

是比較運(yùn)算符，是運(yùn)算符！+、-、*、/ 是算術(shù)運(yùn)算符，也是運(yùn)算符！

既然是運(yùn)算符，就得按照運(yùn)算優(yōu)先級(jí)（所謂優(yōu)先級(jí)，就是 * 運(yùn)算比 + 運(yùn)算要優(yōu)先）從左到右依次計(jì)算，顯然 911 X + 1 916 里兩個(gè) 的運(yùn)算優(yōu)先級(jí)是相同的。

那么從左至右依次計(jì)算，先算 911 X + 1，得到結(jié)果 True（-1） 或者 False（0）（不要問我為什么True=-1，F(xiàn)alse=0，.NET里就是這么規(guī)定的），再計(jì)算 True / False 916，結(jié)果始終為 True。704 Y + 1 709 也是同理，兩個(gè) True 之間 And 了還是 True，結(jié)果當(dāng)然是條件一直成立。

正確寫法：

If?(911??X?+?1?And?X?+?1??916)?And?(704??Y?+?1?And?Y?+?1??709)?Then

VB.NET 如何將123456 顯示成“12 34 56”，

s="123456"

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

s1的值就是"12 34 56"