1樓：網友
要計算正確率就很難了。。。因為需逗沒要比較的是相同的位置上的內容，亮指改而你如果有個空格或漏了或多了都是錯的。。。vb想智慧型的話就需要很多程式了，不是那麼容易就能做的了。。。
所以無能為力了敬判。。。抱歉。
急求！！！誰有能夠執行的大學vb課程設計——拼拼看？？？請發到我郵箱吧[email protected]，謝謝了！
2樓：匿名_熱心網友
比如唯洞擾你有100個資料，建立乙個指旦陣列：a(1 to 100)：
首先將100個資料輸入到陣列，然後：
for i=1 to 99
for j=1 to 100-i
if a(j)>a(j+1) then
maxr=a(j)
end if
next j
next i
maxr就是最大顫改值。
求乙個vb打字遊戲的**
3樓：碧原信用服務
介面如何。窗體上放兩個label 和乙個timer.
屬性視窗中這是label1的一下屬性 :
autosize 設定為true
backstyle設定為0
index設定為0
記住一定要把label1的index設定0. 要不然程式會出現錯誤。 label2的caption輸入 「成績」
timer1的interval屬性設定為200.
**如下：private sub form_keypress(keyascii as integer)
static score as integer
for i = 0 to 5
if ucase(chr(keyascii)) = label1(i).caption then
label1(i).caption = ""
score = score + 1
exit for
end if
next "成績：" & score
end sub
private sub form_load()
label1(0).fontsize = 18
label1(0).caption = "a"
randomize
for i = 1 to 5
load label1(i)
label1(i).move rnd * 2000 * rnd
label1(i).caption = chr(int(rnd * 26 + 65))
label1(i).visible = true
label1(i).forecolor = qbcolor(int(rnd * 15))
nextend sub
private sub timer1_timer()
dim i as integer
for i = 0 to 5
label1(i).top = label1(i).top + 100
if label1(i).top > then
label1(i).top = 0
label1(i).caption = chr(int(rnd * 26 + 65))
end if
nextend sub
這個內容涉及到控制項陣列和動態載入控制項陣列，不知道你們老師是否講過。
4樓：網友
我有寫過，打字的練習程式。
如何編寫vb拼音打字遊戲
5樓：我才是小烏龜
1全部加10個label1控制項組，乙個timer，操作：執行後，回車即可進行遊戲，**：private declare function getasynckeystate lib "user32" (byval vkey as long) as integer
dim m as integer
private sub form_keypress(keyascii as integer)
if keyascii = 13 then
elsefor j = 0 to 9
if label1(j).caption = ucase(chr(keyascii)) then
m = m + 1
if m = 30 then = "第一級"
if m = 60 then = "第2級"
if m = 90 then = "第3級"
label1(j).top = 0
exit for
end if
nextend if
end sub
private sub form_load()
for i = 0 to 9
label1(i).top = 0
next "第0級"
end sub
private sub timer1_timer()
static n as integer
if n = 10 then
msgbox "遊戲結束"
falseend if
for i = 0 to 9
if label1(i).top > then
label1(i).top = 0
randomize
label1(i).caption = chr(int(rnd * 26 + 65))
n = n + 1
elseif label1(i).top = 0 then
randomize
label1(i).caption = chr(int(rnd * 26 + 65))
label1(i).top = label1(i).top + 100
elselabel1(i).top = label1(i).top + 100
end if
nextend sub
vb26字母打字遊戲課程設計 **等！！重金急求。
6樓：網友
可以把你做的工程資料夾內所有檔案壓縮一下傳上來看看。
7樓：懷昊明
不知道你的問題解決了沒有，還沒有話，報qq,線上聯絡。
求VB高手幫忙做幾個題，跪求vb高手幫忙做幾題vb選擇題 急！！！會追加分的！謝謝！
打包發給你了，4個按鈕4道題 今日心情不太差,答你個主要程式片吧,基本上修改下就完成的了 1.s text1.text print mid s,2,1 print mid s,1,1 print mid s,3,1 反正既然約定了輸入的是三位整數.直接把text中輸入當字串來弄省事了.2.i val...
vb做截圖程式，VB做截圖程式
private declare sub keybd event lib user32 byval bvk as byte,byval bscan as byte,byval dwflags as long,byval dwextrainfo as long const thescreen 0 con...
用vb怎麼求餘數，用VB怎麼求餘數
娛樂小八卦啊 在vb中運用模運算 mod 進行求餘數。對於整型數a，b來說，取模運算或者求餘運算的方法都是 1 求 整數商 c a b 2 計算模或者餘數 r a c b。求模運算和求餘運算在第一步不同 取餘運算在取c的值時，向0 方向舍入 而取模運算在計算c的值時，向負無窮方向舍入。所謂向0方向舍...