潘保文

（廣西民族大學(xué)，廣西 南寧 530006）

摘要：近年來，在學(xué)校、單位和各系統(tǒng)內(nèi)，模仿電視臺(tái)效果的各種知識(shí)競(jìng)賽類活動(dòng)也興盛起來。但是傳統(tǒng)組織形式上的缺點(diǎn)逐漸顯現(xiàn)：人工操作方式落后、笨拙、單調(diào)，搶答器不普及、不方便、成本高。知識(shí)競(jìng)賽軟件就是簡(jiǎn)單利用計(jì)算機(jī)及網(wǎng)絡(luò)設(shè)備等資源，通過軟件來實(shí)現(xiàn)專業(yè)效果的競(jìng)賽系統(tǒng)，知識(shí)競(jìng)賽軟件實(shí)現(xiàn)競(jìng)賽的成本低，便于組織，通用性好。

關(guān)鍵詞：知識(shí)競(jìng)賽；VB；管理信息

中圖分類號(hào)：G642.0 文獻(xiàn)標(biāo)志碼：A 文章編號(hào)：1674-9324（2016）49-0258-02

一、需求分析

在企事業(yè)單位和學(xué)校里我們經(jīng)常能見到一些知識(shí)競(jìng)賽之類的比賽，對(duì)于這一類的程序，通常我們首先想到的就是用快速開發(fā)工具來做，使用本系統(tǒng)作為平臺(tái)，能夠把競(jìng)賽整個(gè)流程有機(jī)結(jié)合起來。用大屏幕和音響以多媒體的形式向觀眾展示大賽的各種信息、背景音樂、選手情況、題目?jī)?nèi)容等，配合主持人的解說，同時(shí)，大賽全程都可以由一名幕后人員用一臺(tái)電腦進(jìn)行后臺(tái)監(jiān)控，扮演“導(dǎo)播”的角色，可以進(jìn)行選手、題目、競(jìng)賽模塊的手動(dòng)切換等輔助操作，保障大賽的順利進(jìn)行。

通過調(diào)查，要求軟件需要有以下功能：（1）要求具有良好的人機(jī)界面，操作簡(jiǎn)單。包括編輯試題軟件和答題界面軟件。（2）該軟件的使用對(duì)象負(fù)責(zé)和管理人員。

二、可行性分析

由于涉及的對(duì)象單一，為了便于多人協(xié)作出題，比較適合于采用excel管理試題庫(kù)，運(yùn)用VB制作界面。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其他程序的功能，因此完全可以實(shí)現(xiàn)。

三、軟件實(shí)現(xiàn)

（1）添加試題功能主要代碼

If Trim（Combo1.Text） = "" Then

MsgBox "" & vbCrLf & "試題不完整！"， vbExclamation， "警告"

Else

If Trim（Combo1.Text） = "看圖題" Then

If （Trim（Text2.Text） = "" Or Trim（Text3.Text） = "" Or Trim（Text4.Text） = ""） Then

MsgBox "" & vbCrLf & "試題不完整！"， vbExclamation， "警告"

Exit Sub

Else

shu = shu + 1

Form1.EXLSHEET.Cells（k + 2， 1） = k + 1

Form1.EXLSHEET.Cells（k + 2， 2） = Trim（Combo1.Text）

Form1.EXLSHEET.Cells（k + 2， 3） = Trim（Text2.Text）

Form1.EXLSHEET.Cells（k + 2， 4） = Trim（Text3.Text）

Text2.Text = "" ： Text3.Text = ""

Label7.Caption = "添加成功！"

Form1.Ti_shu = Form1.Ti_shu + 1

Label6.Caption = Form1.Ti_shu

Exit Sub

End If

End If

（2）修改試題功能主要代碼

先讀取試題庫(kù)里的題目，修改后再寫入題庫(kù)。

讀取題目主要代碼：

Text1.Text = KillSpace（Form1.EXLSHEET.Cells（k + 1， 2））

Text2.Text = Form1.EXLSHEET.Cells（k + 1， 3）

Text3.Text = Form1.EXLSHEET.Cells（k + 1， 4）

Text4.Text = KillSpace（Form1.EXLSHEET.Cells（k + 1， 5））

tj = k

k = k + 1

寫入題目主要代碼：

Form1.EXLSHEET.Cells（tj + 1， 2） = Trim（Text1.Text）

Form1.EXLSHEET.Cells（tj + 1， 3） = Trim（Text2.Text）

Form1.EXLSHEET.Cells（tj + 1， 4） = Trim（Text3.Text）

Form1.EXLSHEET.Cells（tj + 1， 5） = Trim（Text4.Text）

（3）導(dǎo)入背景圖功能主要代碼

Dim ofn As OPENFILENAME

Dim rtn As String

ofn.lStructSize = Len（ofn）

ofn.hwndOwner = Me.hWnd

ofn.hInstance = App.hInstance

ofn.lpstrFilter = "圖片文件（jpg）" + Chr$（0） + "*.jpg" + Chr$（0） + "圖片文件（bmp）" + Chr$（0） + "*.bmp" + Chr$（0） + "圖片文件（ico）" + Chr$（0） + "*.ico"

ofn.lpstrFile = Space（254）： ofn.nMaxFile = 255：ofn.lpstrFileTitle = Space（254）

ofn.nMaxFileTitle = 255： ofn.lpstrInitialDir = App.Path

ofn.lpstrTitle = "導(dǎo)入背景圖片" ： ofn.flags = 6148

rtn = GetOpenFileName（ofn）

Dim dr As String

If rtn >= 1 Then

Image3.Visible = True

quxiao.Enabled = True

Image3.Picture = LoadPicture（ofn.lpstrFile）

End If

（4）設(shè)置功能主要代碼

If Form1.BackColor = &H404040 Then Option1.Value = True

If Form1.BackColor = vbBlack Then Option2.Value = True

If Form1.BackColor = vbWhite Then Option3.Value = True

If Form1.Label1.ForeColor = vbWhite Then Option4.Value = True

If Form1.Label1.ForeColor = vbBlack Then Option5.Value = True

If Form1.Label1.ForeColor = vbBlue Then Option6.Value = True

If Form1.Label1.FontSize = 36 Then Option7.Value = True

If Form1.Label1.FontSize = 26.25 Then Option8.Value = True

If Form1.Label1.FontSize = 21.75 Then Option9.Value = True

（5）答題時(shí)間功能主要代碼

If Val（Text1.Text） < 0 Or Val（Text1.Text） > 60 Then

MsgBox "" & vbCrLf & "時(shí)間不能超過60秒！"， vbExclamation， "警告"

Exit Sub

End If

Form1.sumt = Text1.Text

If Val（Text2.Text） > Form1.sumt Then

MsgBox "" & vbCrLf & "提醒時(shí)間不能答題時(shí)間！"， vbExclamation， "警告"

Exit Sub

End If

Form1.daot = Text2.Text

Form1.Label5.Caption = Form1.sumt

Form1.s = 0

If Form1.Command1.Caption = "下一新題" Then

Form1.Timer1.Enabled = True

End If

四、結(jié)論

在本軟件系統(tǒng)采用VB+excel編程，界面美觀友好，操作簡(jiǎn)單，易于日后程序更新，效率高是本軟件系統(tǒng)的特點(diǎn)。

參考文獻(xiàn)：

[1]余潔.基于學(xué)生信息管理查詢系統(tǒng)的設(shè)計(jì)和開發(fā)[J].上海電力學(xué)院學(xué)報(bào)，2003，（02）.

[2]王曉喬.學(xué)生信息管理系統(tǒng)設(shè)計(jì)與分析[J].湘潭師范學(xué)院學(xué)報(bào)（自然科學(xué)版），2003，（03）.