1樓:悠悠周郎
最簡單的,做個文字框,所有功能都是文字框提供的啊,預設就行除了把文字框設定為 multiline 設定為 true
2樓:匿名使用者
'有text1,text2和label1
'text1拿來顯示文章,text2打字,label1顯示正確率dim i,p as integer
private sub text1_change()for i=1 to len(text2.text)if mid(text2.text,i,1)=mid(text2.
text,i,1) then
p=int(p+100/len(text2.text))end if
next i
label1.caption=p & "%"
end sub
3樓:匿名使用者
簡單的打字**,太難的俺不會做:
窗體上建立一個text1,用於隨機顯示20 個字元
text2 用於打字輸入
按鈕1 :用於產生隨機字元
label1 : 用於顯示正確率
option explicit
private sub command1_click()
dim i as integer
dim rndnum as integer
text1 = ""
randomize
for i = 1 to 20
rndnum = int(rnd * 58 + 65)
if rndnum > 90 and rndnum < 97 then
i = i - 1
else
text1 = text1 & chr(rndnum) & " "
end if
next
text1 = trim(text1)
end sub
private sub text2_keypress(keyascii as integer)
static k as integer
static i as integer
if keyascii = 8 then exit sub
i = i + 1
if keyascii <> asc(mid(text1, i, 1)) then k = k + 1
label1.caption = "正確率: " & format((i - k) / i, "0.00%")
if len(text2) = len(text1) then keyascii = 0
end sub
想用vb編一個簡單的背單詞程式
4樓:命幽
一九8786三三63
jia我 我發給你
5樓:
只提供思路:
如果每次單詞量不多,建議用左右2列文字框陣列,分別輸入中、英文,點選完畢後,將文字框陣列的值分別存入2個字串陣列(中英文內容在陣列中的索引一一對應);如果單詞較多,就用2個文字框分別輸入中英文,每次用一個事件(比如在輸入完英文單詞後按回車)來將2個對應的字串分別存入2個陣列中對應的位置,並清空2個文字框以準備再次輸入,其它與前相同。
背單詞的時候,每一條中文按陣列中的索引順序顯示(或增加**改為隨機顯示),輸入英文後按相同的索引號去英文的陣列中找到對應的單詞並判斷正確與否。
使用vb編寫一個簡單的計算器
6樓:吳
vari,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
write(' ');
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
for i:=n-1 downto 1 dobegin
for j:=1 to n-i do
write(' ');
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
readln;
end.
7樓:匿名使用者
從圖看,是簡單的四則運算。所以,點選按鈕相當於按順序輸入數字和運算子號,也接受鍵盤輸入。
文字框中的字元,要通過解析,呼叫函式進行計算。
vb2012版本的可以嗎?張志晨
用vb編加密解密的程式,用vb編一個加密解密的程式
圖上的控制元件,你就照著擺上去,然後再把以下 拷進去,就ok了dim lg as integer 加密private sub command1 click text2 dim a b as stringlg len text1 redim a lg b lg for i 1 to lg a i mi...
軟體是用程式設計軟體編的,程式設計軟體又怎麼來的
程式設計軟體其實也是軟體呀。也是通過程式設計師通過碼 而來。只不過有了程式設計軟體,別的軟體的程式設計師能夠更加快速的輸入 並可以檢查輸入 的正確性及快速檢測程式的可執行性,可以節省程式設計師的大量時間。軟體是一系列按照特定順序組織的計算機資料和指令的集合。你所說的程式設計軟體其實就是用人類更易理解...
求用vb語言編寫好的軟體,如何用VB編寫一個簡單的減法程式?
module1 type student name as string age as integer birth as data adress as string end type form1 text1 text2.passwordchar command1 click if text1.text...