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