1樓：匿名使用者
private sub form_click()dim j as long, i as long, t as string, t1 as string, t2 as string, s as string
me.cls
t = "9 "
t2 = space(8)
s = t2 & t1 & t & t1 & t2me.print s
for j = 1 to 4
t1 = 9 - j & " "
t2 = space(8 - j * 2)s = t2 & t1 & t & t1 & t2t = t1 & t & t1
me.print s
next
for j = 1 to 4
t1 = mid(t, j * 2 + 1, len(t) - j * 4)
t2 = space(j * 2)
s = t2 & t1
me.print s
next
end sub
2樓：
1b 2d 3a 4d 5c
的雙引號，如果將上述公式改為：
vb題目求大佬解答
3樓：匿名使用者
sub stradd(s1 as string, s2 as string)
dim temp as string
static i as integer
i = i + 1
temp = mid(s1, i, 1)
if temp <> "" then call stradd(s1, s2)
s2 = s2 & temp
end sub
sub main()
dim s2 as string
call stradd("abcdef", s2)debug.print s2
end sub
結果是倒序字串
你可以f8單步跟蹤就能明白。
vb題目，求大佬，如圖
一道vb程式設計題目，求大佬解答！！
4樓：匿名使用者
^private sub command1_click()dim i as integer
for i = 11 to 999
if i = strreverse(i) and i ^ 2 = strreverse(i ^ 2) and i ^ 3 = strreverse(i ^ 3) then
print i, i ^ 2, i ^ 3end if
next
end sub
一道vb程式設計題目 求大佬解答！！！
5樓：聽不清啊
private sub command1_click()dim x as integer, y as integerx = inputbox("請輸入乙個正整數：")t = x
y = 0
doy = y * 10 + t mod 10t = t \ 10
loop while t > 0
msgbox x & " 的逆序數是： " & yend sub
求vb大佬解乙個程式設計題，如果可以的話最好截圖啊，因為太菜了 5
6樓：匿名使用者
^private sub form_activate()randomize
dim r as single, t as singler = 1 + rnd
dot = r
r = r - (5 * r ^ 3 + 2 * r ^ 2 - 12 * r - 16) / (15 * r ^ 2 + 4 ^ r - 12)
loop until abs(r - t) < 10 ^ (-4)label1.caption = "r = " + cstr(r)end sub
求大佬解決乙個vb問題
7樓：聽不清啊
private sub command1_click()
dim m as integer, n as integer
m = inputbox("請輸入矩陣的行數：")
n = inputbox("請輸入矩陣的列數：")
dim a(20, 20) as integer
m1 = 1: n1 = 1: m2 = 1: n2 = 1
randomize
for i = 1 to m
for j = 1 to n
a(i, j) = rnd * 90 + 10
print a(i, j);
if a(i, j) > a(m1, n1) then m1 = i: n1 = j
if a(i, j) < a(m2, n2) then m2 = i: n2 = j
next j
next i
print "最大值： a(" & m1 & "," & n1 & ")=" & a(m1, n1)
print "最小值： a(" & m2 & "," & n2 & ")=" & a(m2, n2)
end sub
vb問題，求大佬解答
8樓：匿名使用者
private sub command1_click()
dim fh as string
fh = inputbox("請輸入運算子：+，-，*，/", "", "+")
me.cls
select case fh
case is = "+"
me.print val(text1) & " + " & val(text2) & " = " & val(text1) + val(text2)
case is = "-"
me.print val(text1) & " - " & val(text2) & " = " & val(text1) - val(text2)
case is = "*"
me.print val(text1) & " * " & val(text2) & " = " & val(text1) * val(text2)
case is = "/"
me.print val(text1) & " / " & val(text2) & " = " & val(text1) / val(text2)
case else
me.print "你沒有正確輸入運算子"
end select
end sub
private sub command2_click()
me.cls
me.print "知識改變命運，技術改變生活。"
end sub
private sub command3_click()
endend sub
private sub form_load()
text1 = "123"
text2 = "23"
command1.caption = "計算"
command2.caption = "格言"
command3.caption = "結束"
end sub
VB題目求大佬幫忙，VB題目求大佬幫忙
手機樂淘類人猿 都把人家大佬逼成什麼樣子啦！ 題目根本就看不清楚 不清楚，換高畫質。 這個 看不清楚，沒辦法幫您了 何秋秋奔跑吧 看不清，無法幫助你 看不清楚，愛莫能助 我覺得，對於愛情，沒必要太過講究，那更多是人生中的驚喜，有也好，沒也罷，最重要的還是陪伴。 旅瀾 emmmmmmmmmmmm 酷彥...
急求！vb程式設計題目
dim m as integer,n as integerprivate sub command1 click m val inputbox 輸入正整數 n val inputbox 輸入正整數 if n m 0 then msgbox 兩數任何乙個數都不能為0 exit sub end if en...
簡單的VB題目，乙個簡單的VB題目
首先 function t i as integer as long if i 0 then t 1 else t i t i 1 end if end function 這是乙個功能函式 原型function t i as integer as long 輸入引數 i 為整形 i as integ...