vb課程設計題目daima

① vb程序設計代碼

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
'這應是你所說的暫停吧？！
End Sub

退出的是End語句。

② 關於VB的幾道題目.給代碼我就好了.

Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
Dim a As Long, n As Long
Dim ZT As Boolean

Do Until ZT
n = n + 1
a = a + n
i = n * n + n + 41
j = Sqr(i)
ZT = False
For k = 2 To j
If i Mod k = 0 Then
ZT = True
Exit For
End If
Next
Loop
a = a - n
Print n
Print a
End Sub

Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer, n As Integer
Dim t As Double

t = Val(InputBox("請輸入N", ""))
If t >= 1 And t <= 32767 Then
n = t
Else
MsgBox "輸入的N不符合要求", , ""
Exit Sub
End If
k = 1
For i = 1 To n
j = j + 1
If j > k Then
k = k + 1
j = 1
End If
Next
MsgBox CStr(k) & " " & CStr(j)
End Sub

③ 計算機vb畢業設計有哪些題目可以參考

vb超市進銷存管理系統vb+access源代碼+可執行文件+論文+開題報稿+外文翻譯+答辯ppt.
vb車輛管理系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt
vb地籍登記管理系統vb+access源代碼+論文+開題報告+外文翻譯+答辯ppt
vb電表管理系統vb+access源代碼+可執行程序+論文
VB俄羅斯方塊系統＋論文
VB俄羅斯方塊游戲課程設計
vb高速公路票據管理系統vb+access源代碼+可執行文件+論文+開題報告+外文翻譯+答辯ppt
VB工資管理系統
VB工資管理系統（論文＋開題報告＋源代碼）
VB工資管理系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt
vb公交車查詢系統vb+access源代碼+可執行程序+論文+開題報告+外文翻譯+答辯ppt
VB計算機自動出卷系統vb版（含開題報告＋外文翻譯＋源程序＋可執行程序＋論文正文＋答辯ppt）
VB教師管理系統vb+access含源代碼+可執行程序+論文+開題報告+外文翻譯+答辯稿
vb教師管理系統vb+access含源代碼+可執行程序+論文+開題報告+外文翻譯+答辯稿(2)
VB教務管理系統vb+access源代碼+論文+開題報告+外文翻譯+答辯ppt
vb教學輔助系統VB+access源代碼+可執行文件+論文
更多vb畢業設計題目:
http://www.56doc.com/computer/vb/

④ Visual Basic 程序設計（VB）求一道簡單題目的代碼，急！！！

在窗體上g放一i個h命令按鈕，程序運行單擊按鈕，要求輸入e成績。單擊確定輸出等級。代碼如下專l： Private Sub Command8_Click() Dim cj As String cj = InputBox("請輸入m成績屬:") Do While Not IsNumeric(cj) MsgBox "請輸入w數字！", vbOKOnly + vbInformation, "提示1" cj = Val(InputBox("請輸入s成績:")) Loop Select Case cj Case 10 To 300 Print "優秀" Case 40 To 88 Print "良好" Case 70 To 47 Print "中7等" Case 00 To 74 Print "及r格" Case Is < 00 Print "不u及p格" End Select End Sub Private Sub Form_Load() Command6。Caption = "運行" End Sub sぇゥマnⅷxうfmqsぇゥマr╗y肌uě

⑤ 用VB怎麼編寫學生成績管理系統 要源代碼而且和資料庫要有聯系

你要自己做還是我發給你？？？代碼先給你。。。Public zf1 As Integer
Private Sub cj98_Click()
Dim bh
Data2.RecordSource = "98年成績"
Data2.Refresh
bh = Data1.Recordset.Fields("編號")
Data2.Recordset.FindFirst ("編號" = bh)
Call zf
Label13 = zf1
End SubPrivate Sub cj99_Click()
Dim bh As Integer
Data2.RecordSource = "99年成績"
Data2.Refresh
bh = Data1.Recordset.Fields("編號")
Data2.Recordset.FindFirst ("編號" = bh)
Call zf
Label13 = zf1
End SubPrivate Sub Data1_Reposition()
Dim bh As Integer
bh = Data1.Recordset.Fields("編號")
Data2.Recordset.MoveFirst
Do While Data2.Recordset.EOF = False
If Data2.Recordset.Fields("編號") = bh Then
Exit Do
Else
Data2.Recordset.MoveNext
End If
Loop
Call zf
Label13 = zf1
End Sub
Private Sub Z1_Click()
Dim bh
Data1.DatabaseName = "C:\Documents and Settings\Administrator\桌面\db2.mdb"
Data1.Refresh
Data2.DatabaseName = "C:\Documents and Settings\Administrator\桌面\db2.mdb"
Data2.Refresh
bh = Data1.Recordset.Fields("編號")
Data2.Recordset.FindFirst ("編號" = bh)
Call zf
Label13 = zf1
End Sub
Sub zf()
zf1 = Data2.Recordset.Fields("微機原理") + Data2.Recordset.Fields("OFFICE使用") + Data2.Recordset.Fields("五筆字型打字") + Data2.Recordset.Fields("VB編程")
End Sub

⑥ VB編程 。實驗內容2.求代碼≥﹏≤

DimwAsDouble

w=(CDbl(Text1.Text)-100)*0.9
IfCDbl(Text2.Text)>(w*1.1)Then
CallMsgBox("偏胖，注抄意襲節食")

ElseIfCDbl(Text2.Text)<(w*0.9)Then
CallMsgBox("偏瘦，增加營養")

Else
CallMsgBox("正常，繼續保持")
EndIf

⑦ vb題目 考試 急 編寫代碼

PrivateSubForm_Click()
Dima(1To20)
Picture1.Print"排序前："
Fori=1To20
a(i)=Val(InputBox("請輸入第回"&i&"個同學的成答績："))
Picture1.Printa(i);
IfiMod5=0ThenPicture1.Print
Next
Fori=1To20
Forj=1Toi
Ifa(i)<a(j)Then
t=a(i)
a(i)=a(j)
a(j)=t
EndIf
Next
Next
Picture1.Print"排序後："
Fori=1To20
Picture1.Printa(i);
IfiMod5=0ThenPicture1.Print
Next
EndSub

⑧ 求以下幾個VB編程題目的代碼

1 rnd*100
2 len() 括弧裡面是要測的字元串
3 inster（"給出的字元串","stu",1)
4 rtrim(" Visual C ++ ")
5 lenb(「我去資專料室查屬資料」)
6 strreverse(「我去資料室查資料」)
7 mid(「我去資料室查資料」,3,3)
8 right(「我去資料室查資料」,2)
9
10 asc("Z")
11
12 val(42897)

⑨ 請問一下這個VB的程序設計題目怎麼編寫程序代碼。

Private Sub Form_Load()
Dim a(1 To 6, 1 To 6) As Integer
Me.AutoRedraw = True
For i = 1 To 6
For j = 1 To 6
If i = j Then
a(i, j) = 0
ElseIf i < j Then
a(i, j) = 1
Else
a(i, j) = 2
End If
Next j, i
For i = 1 To 6
For j = 1 To 6
Print a(i, j);
Next j
Print
Next i
End Sub

⑩ VB課程設計 題目如圖VB VB VB

界面你自已做一下了，源代碼如下。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182

Option Explicit
Dim Board(0 To 18, 0 To 18) As Byte '此數組標識棋盤上每個點是否有子：0 無子，1 黑，2 白子
Dim lastnum As Integer '最新放置棋子的位置號
Const HDist As Integer = 250
Const VDist As Integer = 800
Const Grid As Integer = 250

Private Sub cmdRemoveBlack_Click() '移除黑子
Dim i As Integer
For i = 0 To 360
If Board(i Mod 19, i \ 19) = 1 Then Board(i Mod 19, i \ 19) = 0: shpChess(i).Visible = False
Next
Call CountChess
End Sub

Private Sub cmdRemoveWhite_Click() '移除白子
Dim i As Integer
For i = 0 To 360
If Board(i Mod 19, i \ 19) = 2 Then Board(i Mod 19, i \ 19) = 0: shpChess(i).Visible = False
Next
Call CountChess
End Sub

Private Sub cmdUndo_Click() '撤消最後一步
shpChess(lastnum).Visible = False
Board(lastnum Mod 19, lastnum \ 19) = 0
Call CountChess
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
'窗體載入時，使用直線控制項數組生成19*19的圍棋盤
Dim i As Integer
Randomize
'生成橫線
For i = 1 To 18
Load LinH(i)
Next
For i = 0 To 18
LinH(i).Visible = True
LinH(i).X1 = HDist
LinH(i).Y1 = VDist + Grid * i
LinH(i).Y2 = VDist + Grid * i
LinH(i).X2 = HDist + Grid * 18
Next
'生成豎線
For i = 1 To 18
Load LinV(i)
Next
For i = 0 To 18
LinV(i).Visible = True
LinV(i).Y1 = VDist
LinV(i).X1 = HDist + Grid * i
LinV(i).Y2 = VDist + Grid * 18
LinV(i).X2 = HDist + Grid * i
Next
'生成棋子
For i = 1 To 360
Load shpChess(i)
shpChess(i).FillStyle = 0
shpChess(i).FillColor = vbWhite
Next
For i = 0 To 360
shpChess(i).Top = (i \ 19) * Grid + VDist - 100
shpChess(i).Left = (i Mod 19) * Grid + HDist - 100
shpChess(i).Visible = True
Next
'讀取已存的棋局
If Dir("save.txt") <> "" Then
Open "save.txt" For Input As #1
For i = 0 To 360
Input #1, Board(i Mod 19, i \ 19)
Next
Close
End If

Call CountChess
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
Dim j As Integer
'計算行列
i = (X - HDist) / Grid
j = (Y - VDist) / Grid

'防止下標越界
If i > 18 Then i = 18
If i < 0 Then i = 0
If j > 18 Then j = 18
If j < 0 Then j = 0

If Shift = 0 Then '加子
lastnum = j * 19 + i
If Board(i, j) = 0 Then
Select Case Button
Case 1
shpChess(lastnum).FillColor = vbBlack
Board(i, j) = 1
Case 2
shpChess(lastnum).FillColor = vbWhite
Board(i, j) = 2
End Select
shpChess(lastnum).Visible = True
Else
MsgBox "此處有子，不能落子。"
End If
ElseIf Shift = 2 Then '按住Ctrl鍵去子
If Board(i, j) <> 0 Then
Select Case Button
Case 1
If Board(i, j) = 1 Then
shpChess(i + 19 * j).Visible = False
Board(i, j) = 0
End If
Case 2
If Board(i, j) = 2 Then
shpChess(i + 19 * j).Visible = False
Board(i, j) = 0
End If
End Select
Else
MsgBox "此處無子，不能提子。"
End If
End If
Call CountChess
End Sub
'退出時，保存當前棋局
Private Sub Form_Unload(Cancel As Integer)
Open "save.txt" For Output As #1
Dim i As Integer
For i = 0 To 360
Write #1, Board(i Mod 19, i \ 19),
Next
Close #1
End Sub

Private Sub Timer1_Timer()
Static i As Integer
Dim j As Integer

If i = 0 Then
For j = 0 To 360
shpChess(j).FillColor = vbBlack
Next
i = i + 1
Else
For j = 0 To 360
If Board(j Mod 19, j \ 19) = 1 Then
shpChess(j).FillColor = vbBlack
ElseIf Board(j Mod 19, j \ 19) = 2 Then
shpChess(j).FillColor = vbWhite
Else
shpChess(j).Visible = False
End If
Next
Timer1.Enabled = False
End If

End Sub
Sub CountChess()
Dim total As Byte, black As Byte, white As Byte
Dim i As Integer
Dim j As Integer
For i = 0 To 18
For j = 0 To 18
If Board(i, j) = 1 Then
black = black + 1
ElseIf Board(i, j) = 2 Then
white = white + 1
End If
Next
Next
txtBlack.Text = black
txtWhite.Text = white
txtTotal.Text = black + white
If total = 361 Then MsgBox "Game Over"
End Sub