1樓：匿名使用者
private sub ***mand1_click()if len(text1) >= 2 thentext1 = left(text1, 2)end if
end sub
private sub ***mand2_click()text1 = ""
end sub
private sub form_load()label1.caption = "新字串"
***mand1.caption = "左邊2個字元"
***mand2.caption = "清空"
text1 = ""
'這裡不知道 三號是多大時，可以手動設定文字框字型大小為三號，然後顯示下字型大小，就知道三號字型等於15.75
print text1.fontsize
text1.fontsize = 15.75text1.forecolor = vbredtext1 = "abcdef"
end sub
2樓：臧嬋娟揚代
(2)新增***mand1
dima(1
to100)
aslong
dimptr
asinteger
private
sub***mand1_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
3樓：賀淑珍光女
private
sub***mand1_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
sub***mand2_click()
dimss=
inputbox("請輸入一個正整數")
ifstrreverse(s)=s
then
msgboxs&
"是迴文數"
else
msgboxs&
"不是迴文數"
endif
endsub
private
sub***mand3_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 4樓：光秀珍易茶 第一題同意樓上的意見，不過請把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 測試通過 5樓：戴元武甕平 因為固定長度字串、陣列是不允許作為物件模組的public成員的 所以是a哦 1和3是錯的。。。。。 6樓：孔棟濮陽思源 dima aslong,bas long,cas longa= 1b=1 print a;b; dimi asinteger fori=3 to20c= a+bprintc;a =bb= **ext vb程式設計題目 7樓：鄭桂蘭韶巳 窗體上新增2個文字框和1個按鈕，文字框用來顯示2個同學名字private sub***mand1_click() '交換名字 dims asstrings= text1.text text1.text =text2.text text2.text=s endsub 第一種 對比計算privatesub mand1 click timer1.enabled truetimer1.interval 1 計算一次用時量endsubprivatesubform load text2.text 0 計算方法初始化text3.text 0 計算開始初始化text4.tex... private sub command1 click dim t x y z t val text1.text if t 100 or len text1.text 3 then msgbox 輸入的數字不符合要求 vbinformation exit sub end if z t mod 10 y... a shell cmd c ping vbhide 判斷a的值，具體是什麼值我沒試，你看看聯網執行返回的值和斷網後的值比較一下。至於你說的什麼紅色綠色的，就根據餓這個值來判斷就可以了。這也用vb啊 bat一句就可以了。ping n 1 nul echo 連通 echo 不通。一樓的牛x直接呼叫cmd...vb程式設計計算VB程式設計計算
VB程式程式設計，什麼是VB程式設計？
VB程式設計高手來下，什麼是VB程式設計