1樓：匿名使用者
private sub command1_click()
dim k%, sum%
sum = 0
k = val(trim(inputbox("請輸入正整數k的值")))
for i = 1 to len(str(k))
sum = sum + val(mid(str(k), i, 1))
next i
msgbox sum
end subprivate sub command2_click()
dim s
s = inputbox("請輸入一個正整數")
if strreverse(s) = s then
msgbox s & "是迴文數"
else
msgbox s & "不是迴文數"
end if
end subprivate sub command3_click()
dim max%, a(1 to 10) as integer
randomize
max = 0
for i = 1 to 10
a(i) = int(10 + rnd * 90)
if max < a(i) and a(i) mod 3 = 0 then max = a(i)
next i
if max > 0 then
msgbox max
else
msgbox "無要找的數"
end if
end sub
2樓：匿名使用者
手機關注、回來沒被解決的話，上電腦給貼**
vb程式設計題目
3樓：匿名使用者
private sub command1_click()if len(text1) >= 2 thentext1 = left(text1, 2)end if
end sub
private sub command2_click()text1 = ""
end sub
private sub form_load()label1.caption = "新字串"
command1.caption = "左邊2個字元"
command2.caption = "清空"
text1 = ""
'這裡不知道 三號是多大時，可以手動設定文字框字型大小為三號，然後顯示下字型大小，就知道三號字型等於15.75
print text1.fontsize
text1.fontsize = 15.75text1.forecolor = vbredtext1 = "abcdef"
end sub
4樓：臧嬋娟揚代
(2)新增command1
dima(1
to100)
aslong
dimptr
asinteger
private
subcommand1_click()
a(1)=1
a(2)=1
a(3)=2
forptr=4
to23
a(ptr)=a(ptr-3)+2*a(ptr-2)+a(ptr-1)
next
a(23)
endsub
可以改變迴圈的量求不同的值
(1)dim
result
assouble
result=0.5*sin(47*3.14/180)*13*17面積公式0.5×sinα×ab
5樓：賀淑珍光女
private
subcommand1_click()
dimk%,
sum%
sum=0k
=val(trim(inputbox("請輸入正整數k的值")))fori=1
tolen(str(k))
sum=
sum+
val(mid(str(k),
i,1))
next
imsgbox
sumend
subprivate
subcommand2_click()
dimss=
inputbox("請輸入一個正整數")
ifstrreverse(s)=s
then
msgboxs&
"是迴文數"
else
msgboxs&
"不是迴文數"
endif
endsub
private
subcommand3_click()
dimmax%,
a(1to
10)as
integer
randomize
max=
0fori=
1to10a(i)
=int(10
+rnd
*90)
ifmax
anda(i) mod3=0 then max= a(i) nextiif max> 0then msgbox maxelse msgbox "無要找的數" endif endsub 6樓：光秀珍易茶 第一題同意樓上的意見，不過請把file1的pattern進行修改第二題的**如下 dims asstring private subdir1_change() file1.path =dir1.path endsub private subdrive1_change() dir1.path =drive1.drive endsub private subfile1_click()s= dir1.path open sfor input as#1 dimst dountil eof(1) line input #1,st text2.text =text2.text&st loop close #1end subprivate subfile1_dblclick() shell "notepad.exe"& s,vbnormalfocus endsub private subform_load() file1.pattern ="*.txt" endsub 測試通過 7樓：戴元武甕平 因為固定長度字串、陣列是不允許作為物件模組的public成員的 所以是a哦 1和3是錯的。。。。。 8樓：孔棟濮陽思源 dima aslong,bas long,cas longa= 1b=1 print a;b; dimi asinteger fori=3 to20c= a+bprintc;a =bb= cnext vb程式設計題目 9樓：鄭桂蘭韶巳 窗體上新增2個文字框和1個按鈕，文字框用來顯示2個同學名字private subcommand1_click() '交換名字 dims asstrings= text1.text text1.text =text2.text text2.text=s endsub vb程式設計題， 10樓：聽不清啊 private sub command1_click()dim a(5, 7) for i = 1 to 5 for j = 1 to 6 a(i, j) = int(rnd * 9) + 1a(i, 7) = a(i, 7) + a(i, j)print a(i, j); next j print next i print: print for i = 1 to 5 for j = 1 to 6 a(i, 7) = a(i, 7) + a(i, j)print a(i, j); next j print a(i, 7) next i end sub 11樓：樓磬將流婉 以下兩種方法,都沒有定義使用任何額外變數 方法一:該方法單擊按鈕只能交換一次** private subcmd1_click() pic2.paintpicture pic1.picture,0,0 pic1.paintpicture pic2.picture,0,0 endsub 方法專二:該方法可以不屬停的單擊按鈕並交換**,但是用了窗體作為中間交換媒介 private subcmd1_click() me.picture =pic1.picture pic1.picture =pic2.picture pic2.picture =me.picture me.picture =nothing endsub 12樓：無秉朋佳 這個應該不是很難才對啊 在月份單選按鈕單擊事件中編寫： option1.caption="opnonth" text1.text=longdate 這樣應該可以 13樓：王翠帖雯麗 ifopnonth.value=ture then label1.text=「現在是某某月」 endif vb程式設計題目 14樓：匿名使用者 private function 費用() as singleselect case 上網hour '小時數可以是integer or long '這個時間是在計數器裡累積出來的一個月內的小時數case is <10 費用=30 case is >=10 or is<50費用=30+3*(上網hour-10) case is >=50 費用=30+3*(49-10) +2.5*(上網hour -49)end select if 費用》150 then 費用=150end function private sub command1 click dim a as integer,b as integer,c as integer dim y as integer y val if y 1 then a 1000 b val y 2 then a 1500 b val y 3 then a... 有個 自己去看吧，都是考試的。編一個求圓周長的程式。輸入半徑，得到周長和麵積。試試看。建議你不要光學vb,畢竟它有太多缺點，很多事做不了 如果是對basic語言感興趣的話，到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大 freebasic甚至可以寫作業系... private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...設計一個VB程式設計題目， 50，VB程式設計練習題？
VB程式設計問題，VB程式設計中的迴圈問題
vb程式設計問題