-
老闆,你能公布你的電子郵件位址嗎? 直接發給你,就是像我這樣無聊的人會幫你做。 畢竟,你的積分真的少了一點。 這兩個程式更關注控制項的屬性設定。
在 1 中,timer1 和 timer2 被啟用為 false
multiline=true in text1 in 2 等。
另請注意:2 在執行時輸入文字的字段用“空格”分隔。 例如,guocan vb 有兩個子段。
答案是 1. dim t1, t2, h, ci as integer
private sub form_click()
trueline (-100, 0)-(100, 0)
end sub
private sub form_load()
0ci = 1
end sub
private sub timer1_timer()
t1 = t1 + 1
100 / ci - t1
if t1 = int(100 / ci) then
falsetruet1 = 0
ci = ci + 1
end if
if int(100 / ci) = 0 then = false
clsprint
end sub
private sub timer2_timer()
t2 = t2 + 1
t2if t2 = int(100 / ci) then
true false
t2 = 0
ci = ci + 1
end if
if int(100 / ci) = 0 then = false
clsprint
end sub
答案 2. dim st(100) as string
dim shu(100) as integer
dim zf, stri as string
dim t, max, k as integer
private sub form_click()
stri =
for i = 1 to len(
zf = mid(stri, i, 1)
if asc(zf) = 32 then
t = t + 1
end if
st(t) = st(t) +zf
next i
max = 0
for i = 0 to t
shu(i) = len(st(i))
if max < shu(i) then max = shu(i): k = i
next i
print "角色是:" & st(k), "位元組數為:" & max
end sub
-
15分? 我想沒有人能如此自由地幫助你獲得 15 分的那麼長 **。
-
您需要做的就是使用替換功能。
格式:變數 = replace(源字串、要替換的內容、要替換的內容)。
然後 msgbox 輸出此變數。
-
根據您的要求:
設計乙個替換字元的程式,介面如圖所示。 在“原始字串”中輸入字串,在“指定字元”中輸入原始字串中包含的字串,在“替換為”中輸入指定字元的內容,單擊“替換”按鈕,將原始字串中的指定內容替換並連線到新字串中並顯示在“新字串”中。 單擊“退出”按鈕結束程式執行。
生產完成,**如下:
-
private sub command1_click()static n as long, m as longm = val(text2)
n = n + 1
if text1 = "psw123" thenmsgbox "密碼正確", vbexclamation, "登入"
n = 0else
if n >= m then
msgbox n & "如果您輸入了錯誤,請退出", vbexclamation, "登入"
endelse
msgbox "部分" & n & "二級密碼不正確,請重新輸入", vbexclamation, "登入"
end if
end if
end sub
private sub form_load()= "密碼:"
允許使用密碼的次數:"
還行" "登入"
text1 = ""
text2 = 3
end sub
-
問題 2:
x = 1if x = fix(x \ 2) *2 then msgbox "這是乙個偶數" else msgbox "這是乙個奇數"
-
VB 是 Visual Basic 程式語言。
編寫電腦程式需要使用計算機程式語言。 計算機程式語言是人與計算機之間的橋梁。 就像人類語言一樣,有許多計算機程式語言。
目前使用最廣泛的語言是“C++”、“Pascal”、“Basic”等。 在眾多計算機程式語言中,基本語言是最容易學習和使用的。
Basic 是 Beginner's All Purpose Symbolic Instruction Code 的縮寫,意思是面向初學者的通用符號指令**,一直是程式設計入門的首選語言。
1991年,Visual Basic(VB)問世,這是BASIC的第三代產品,它不僅繼承了BASIC語言易學易用的優點,還增加了圖形介面設計工具。 它簡化了編寫複雜視窗程式的過程,使程式設計師能夠更專注於解決問題的過程。
-
哦,我也不會,雞蛋很痛。
private sub command1_click()
dim i as long, n as long, gen as long, su() as long, s as long >>>More