vb簡要編程

⑴ vb編程主要內容

那要看你的2各系統的具體情況，但windows api和資料庫有關知識應該學習下！

⑵ vb簡單編程

不退出全屏游戲。。。
恩，是有點復雜

要用到API和圖像庫的

⑶ vb編程超簡單

PrivateSubCommand1_Click()
Text2.Text=""
Text2.Text=Text2.Text+Text1.Text
Fori=0To2
IfOption1(i).Value=TrueThen
Text2.Text=Text2.Text+Space(3)+"職稱："+Option1(i).Caption+Space(3)
Else
Option1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+"愛好："
Fori=0To2
IfCheck1(i).Value=1Then
Text2.Text=Text2.Text+Check1(i).Caption+Space(1)
Else
Check1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+Space(2)+"籍貫："+List1.List(List1.ListIndex)+Space(3)
Text2.Text=Text2.Text+"部門："+Combo1.Text
EndSub

PrivateSubCommand2_Click()
End
EndSub

PrivateSubForm_Load()
Option1(0).Caption="初級"
Option1(1).Caption="中級"
Option1(2).Caption="高級"
Check1(0).Caption="音樂"
Check1(1).Caption="體育"
Check1(2).Caption="繪畫"
List1.AddItem"北京市"
List1.AddItem"江蘇省"
List1.AddItem"江西省"
List1.AddItem"山東省"
List1.AddItem"山西省"
List1.AddItem"浙江省"
List1.AddItem"遼寧省"
List1.AddItem"天津市"
List1.AddItem"湖南省"
List1.AddItem"河北省"
List1.AddItem"上海市"
List1.AddItem"廣東省"
Combo1.AddItem"電子系"
Combo1.AddItem"數學系"
Combo1.AddItem"計算機系"
Combo1.AddItem"物理系"
Combo1.AddItem"化學系"
Combo1.AddItem"天文系"
Combo1.AddItem"地質系"
Combo1.AddItem"醫學系"
Text1.Text=""
Text2.Text=""

EndSub

PrivateSubFrame1_Click()
Fori=0To2
IfOption1(Index).Value=FalseThenOption1(Index).Enabled=False
Nexti
EndSub

⑷ VB 編程 簡單

文本框的任何事件不需要任何代碼，除非你想讓它能在長或寬輸入內容改變時，面積及周長自動改變，而不需要單擊計算撳鈕。
假設你的周長顯示在Textbox3，面積顯示在Textbox4中
Private Sub 計算_Click()
dim a1&,a2&
a1=val(textbox1.text)
a2=val(textbox2.text)
textbox3.text=str((a1+a2)*2)
textbox4.text=str(a1*a2)

End Sub

⑸ vb編程(很簡單的)

作業還是盡可能自己完成呀！
既然「很簡單的」，自己寫呀？何必求別人寫？還望眼欲穿，在這里苦苦地等呢？
下不為例哈！
Dim a
Private Sub Command1_Click()
a = 0
Lop:
If a < 100 Then
a = a + 1
If Int(a / 7) * 7 = a Then
Print a
End If
GoTo Lop
Else:
End If
End Sub

⑹ VB編程，超簡單的。求編寫代碼

第一題：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("請輸入當前顧客購買雞蛋的重量（以公斤為單位）")
If x < 3 Then
Y = 7.6 * x
Else
Y = 7.6 * x * 0.8
End If
Print Format(Y, "0.00")
End Sub

第二題：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("請輸入顧客所乘的公里數")
If x / Fix(x) = 1 Then
x = x
Else
x = Fix(x) + 1
End If

If x > 15 Then
Y = 7 + 13 * 1.5 + (x - 15) * 2.1
ElseIf x > 2 Then
Y = 7 + (x - 2) * 1.5
Else
Y = 7
End If

Print Y
End Sub

⑺ 簡單的VB編程

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Text1.Text <> "" And IsNumeric(Text1.Text) Then
Dim vSum%
for i=1 to val(text1.text)
vSum = vSum + i
next
Text2.Text = i
End If
End Sub

⑻ VB簡單編程

要使用兩個if語句
Private Sub Form_Click()
Dim i As Integer, n As Integer, S As String
i = 1: n = 2
Do While i <= 100
If i Mod n = 0 Then
S = S & i & Space(5)
If i Mod 5 = 0 Then
Print S
S = ""
End If
End If
i = i + 1
Loop
End Sub

⑼ 簡單VB編程

就5分？？？