VB课程设计题目，这可怎么搞？好捉急。。。【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：105,947贴子：
VB课程设计题目，这可怎么搞？好捉急。。。收藏
Visual Basic考试系统
主要内容： 本系统应包括登录界面、答题界面和退出界面。（1）.登录界面，可输入用户的姓名、学号和班级（2）.答题界面，应包括“上一题”、“下一题”、“自动跳题”和按题号选题的功能。 （3）.采用倒计时方式，到时间后自动退出考试系统并评分。 （4）.交卷后，通过退出界面显示用户的信息和得分情况。 要求：
（1）. 题型要包括选择题和填空题。
（2）.退出后能够由系统进行自动阅卷评分。 （3）. 题目即可来源于教材及上机实验指导后的习题，也可自行设计。（4）. 交卷后的成绩和考生信息要存入文件。
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
求大神们给个助攻啊
小白对这东西一无所知
我来也 ，我助攻 ，我的QQ8152456
。。？？？？？？
出个价格吧100以下免谈
登录百度帐号推荐应用君，已阅读到文档的结尾了呢~~
2012vb课程设计题目汇总
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
2012vb课程设计题目汇总
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口VB课程设计 题目如图VB VB VB_百度知道
VB课程设计 题目如图VB VB VB
我有更好的答案
面你自已做一下了，源代码如下。123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182
Option ExplicitDim Board(0 To 18, 0 To 18) As Byte
'此数组标识棋盘上每个点是否有子：0 无子;移除白子
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, i &#92.X1 = HDist
LinH(i).Y1 = VDist + Grid * i
LinH(i).Y2 = VDist + Grid * i
LinH(i).X2 = HDist + Grid * 18
'生成竖线
For i = 1 To 18
Load LinV(i)
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
'生成棋子
For i = 1 To 360
Load shpChess(i)
shpChess(i).FillStyle = 0
shpChess(i).FillColor = vbWhite
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
'读取已存的棋局
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)
Call CountChessEnd SubPrivate 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
shpChess(lastnum).FillColor = vbBlack
Board(i, j) = 1
shpChess(lastnum).FillColor = vbWhite
Board(i, j) = 2
End Select
shpChess(lastnum).Visible = True
MsgBox &此处有子，不能落子。&
ElseIf Shift = 2 Then
'按住Ctrl键去子
If Board(i, j) && 0 Then
Select Case Button
If Board(i, j) = 1 Then
shpChess(i + 19 * j).Visible = False
Board(i, j) = 0
If Board(i, j) = 2 Then
shpChess(i + 19 * j).Visible = False
Board(i, j) = 0
End Select
MsgBox &此处无子，不能提子。&
Call CountChessEnd 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),
Close #1End Sub Private Sub Timer1_Timer()Static i As IntegerDim j As Integer
If i = 0 Then
For j = 0 To 360
shpChess(j).FillColor = vbBlack
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
shpChess(j).Visible = False
Timer1.Enabled = False
End If End SubSub 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
Next Next txtBlack.Text = black txtWhite.Text = white txtTotal.Text = black + white If total = 361 Then MsgBox &Game Over&End S最新放置棋子的位置号Const HDist As Integer = 250Const VDist As Integer = 800Const Grid As Integer = 250 Private Sub cmdRemoveBlack_Click()
&#39，2 白子Dim lastnum As Integer
' 19) = 1 Then Board(i Mod 19, i \ 19) = 0: shpChess(i).Visible = False
Call CountChessEnd Sub Private Sub cmdUndo_Click()
'撤消最后一步
shpChess(lastnum).Visible = False
Board(lastnum Mod 19, lastnum \ 19) = 0
Call CountChessEnd Sub Private Sub Command1_Click()
Unload MeEnd Sub Private Sub Form_Load()
'窗体加载时，使用直线控件数组生成19*19的围棋盘
Dim i As Integer
'生成横线
For i = 1 To 18
Load LinH(i)
For i = 0 To 18
LinH(i).Visible = True
LinH(i);移除黑子
Dim i As Integer
For i = 0 To 360
If Board(i Mod 19: shpChess(i).Visible = False
Call CountChessEnd Sub Private Sub cmdRemoveWhite_Click()
&#39，1 黑
采纳率：80%
来自团队：
为您推荐：
其他类似问题
课程设计的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。 上传我的文档
 下载
 收藏
粉丝量：1027
该文档贡献者很忙，什么也没留下。
 下载此文档
VB课程设计题目（直线拟合）四星
下载积分：1000
内容提示：VB课程设计题目（直线拟合）四星
文档格式：DOC|
浏览次数：193|
上传日期： 17:54:47|
文档星级：
全文阅读已结束，如果下载本文需要使用
 1000 积分
下载此文档
该用户还上传了这些文档
VB课程设计题目（直线拟合）四星
关注微信公众号