VB中如何設(shè)計制作一個答題軟件

兩個需要運算的數(shù)字可以用隨機函數(shù) rnd 來得到，而四個運算符可以放在數(shù)組里面，數(shù)組的下標(biāo)又可以用隨機函數(shù)取得，則運算符也是隨機的，把取得的運算符放在一個標(biāo)簽里 ?如 label1

潮南ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應(yīng)用場景，ssl證書未來市場廣闊！成為成都創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：028-86922220（備注：SSL證書合作）期待與您的合作！

然后用選擇語句 select 來判斷l(xiāng)abel1.caption 中的運算符 ? 是什么運算符 ?自己就做什么樣的運算 ?把結(jié)果放在一個變量 c 當(dāng)中 ?

最后用 if 語句判斷用戶所填的答案與 c 是否相同 ? 相同則正確 ? 不同則錯誤 ?

代碼如下

Dim?i?As?Integer

Dim?j?As?Integer

Private?Sub?Command1_Click()

Text1.Text?=?Rnd(1)?*?1000

Text2.Text?=?Rnd(1)?*?1000

Dim?b?As?Integer

Dim?a(4)?As?String

a(1)?=?"+"

a(2)?=?"-"

a(3)?=?"*"

a(4)?=?"/"

b?=?Int((Rnd?*?4)?+?1)

Label1.Caption?=?a(b)

Text3.Text?=?""

Text3.TabIndex?=?"0"

End?Sub

Private?Sub?Command2_Click()

Dim?c?As?Double

Select?Case?Label1.Caption

Case?"+"

c?=?Text1.Text?+?Text2.Text

Case?"-"

c?=?Text1.Text?-?Text2.Text

Case?"*"

c?=?Text1.Text?*?Text2.Text

Case?"/"

c?=?Text1.Text?*?Text2.Text

End?Select

If?Text1.Text?=?""?Then

MsgBox?"請先選題"

Else

If?Text3.Text?=?""?Then

MsgBox?"請先做題"

Else

If?Text3.Text?=?c?Then

Label6.Caption?=?"正確"

i?=?i?+?1

Else

Label6.Caption?=?"錯誤"??Space(3)??"正確結(jié)果為"??c

j?=?j?+?1

End?If

End?If

End?If

End?Sub

Private?Sub?Command3_Click()

Label7.Caption?=?i

Label8.Caption?=?j

End?Sub

Private?Sub?Form_Load()

End?Sub

如何VB制作答題器小軟件？

先建一個frame！

建四個CheckBox,

分別是CheckBox1，CheckBox2，CheckBox3，CheckBox4，把Caption修改成你的答案！

假設(shè)把正確答案寫在CheckBox2

則在CheckBox1，CheckBox3，CheckBox4里寫入語句

Private?Sub?Check1_Click()

If?Check1.Value?=?1?Then

MsgBox?"正確答案是第二個",?vbOKOnly?+?vbInformation?+?0,?"提示"

End?If

End?Sub

Private?Sub?Check3_Click()

If?Check3.Value?=?1?Then

MsgBox?"正確答案是第二個",?vbOKOnly?+?vbInformation?+?0,?"提示"

End?If

End?Sub

Private?Sub?Check4_Click()

If?Check4.Value?=?1?Then

MsgBox?"正確答案是第二個",?vbOKOnly?+?vbInformation?+?0,?"提示"

End?If

End?Sub

第二題在建一個Frame

以此類推……

在vb.net中，做一個系統(tǒng)答題的設(shè)計，怎么給每道題的答案積分，最后得到總分？

最簡單的是定義個單精度變量，比如n

然后用到If...Then... 判斷語句。

舉例說明：1+1=2 判斷這個語句

if text1.text="2" then n+=20 '這個數(shù)值是可以隨便設(shè)置的，就是這道題目的分值。

如果有什么不明白可以QQ聯(lián)系我。

分享文章：vb.net做答題神器 大一vb題庫及答案編程題
文章來源：http://chinadenli.net/article2/hipgoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊、標(biāo)簽優(yōu)化、企業(yè)建站、虛擬主機、網(wǎng)站設(shè)計、動態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)