1樓：粘汀蘭刀嫣
a-1在這段**裡面應該是代表了查詢到的匹配字串的位置text3.selstart=a
-1就是在text3中選中該匹配的字串的起始位置text3.sellength
=len(text2.text)設定text3中選中字串的長度text3.seltext
=text2.text
就是把text2.text內的字元替換為text3在前面兩句中標記好的字串
vb程式設計題目
2樓：匿名使用者
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
3樓：竹貞韻祁許
點選窗體顯示前100項
private
function
sl(i%)
ifi=1
then
sl=0
elseif
i=2then
sl=1
elseif
i=3then
sl=1
else
sl=sl(i-3)+2*sl(i-2)+sl(i-1)endfunction
private
subform1_click()
fori=1
to100
sl(i)
next
iend
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樓：匿名使用者 private sub command1_click()dim i as integer, j as integerfor i = -4 to 4 print spc(3 + abs(i)); string(2 * (4 - abs(i)) + 1, "*") next end sub vb程式設計題目 10樓：匿名使用者 private sub form_load()text1.fontsize = 10 end sub private sub command1_click()text1.fontsize = 10 + int(rnd * 3 + 1) end sub private sub command2_click()text1.fontsize = 10 - int(rnd * 3 + 1) end sub private sub command3_click()text1.fontsize = 10 end sub vb程式設計題目 11樓：聽不清啊 private sub command1_click()label1.caption = "多預習，問題在心中" end sub private sub command2_click()label1.caption = "認真聽，知識記腦裡" end sub private sub command3_click()label1.caption = "多練習，實踐出真知" end sub private sub form_load()label1.fontsize = 20 label1.caption = "歡迎學習visual basic" command1.caption = "上課前" command2.caption = "上課時" command3.caption = "上課後" end sub vb程式設計題目 12樓：匿名使用者 您的第一個問題： text1.text 輸入的數 就是 變數 在文字框裡不是什麼數都可以輸入麼？這就是常量啊！ 您的第二個問題 當然是寫50 應為val把50轉化了數值 為了方便你理解 我舉兩個例子吧 if val(text1.text)>=60 thenprint "pass" else print "nopass" end if 還有一個程式 if text1.text="boy" thenprint"yes" else print"no" end if 第一個是60因為val函式把60這個字元常量轉變成數字常量,所以沒有引號,後邊的是字元常量所以加了引號的哦,一般情況下沒有宣告的話就是變數的 val()函式將text1.text轉換成數值型,所以能比較值是數值，數值在vb中的表達方式沒引號text1.text是字串 所以能比較值是字串，字串在vb中的表達方式要有引號嘿嘿，加個分吧 13樓：悠悠周郎 1.應該用 isnumeric 函式測試 textbox 的值，如果是數字則可以，否則應該用對話方塊提示並重新輸入。 2.最好是 if cint(text1.text) >= 50。不用引號。 14樓：匿名使用者 雖然都可以最好用50，因為val將text1.text的內容轉化為數值,而"50"是字串 15樓：擾龍秀敏 第一個都可以 val函式就不把文字框裡的東西變問數字的 vb程式設計題目 16樓：鄭桂蘭韶巳 窗體上新增2個文字框和1個按鈕，文字框用來顯示2個同學名字private subcommand1_click() '交換名字 dims asstrings= text1.text text1.text =text2.text text2.text=s endsub private sub mand1 click dim i as integer,j as integer,k as integer dim a 1 to 10 as integerdim max as integer,min as integer,pj as single dim sumnum a... private sub mand1 click if val text1.text 7 or val text1.text 1 then msgbox 有效數字輸入範圍1 7 exit sub end if text2.text choose val text1.text 一 二 三 四 五 六 日... public function itotal byval n as integer as double dim i as integer,n as integerdim itol as double,inum as double,ix as integer inum 0.3 for i 1 to n...VB程式設計題目,vb程式設計題目
vb程式設計題求大神解答,VB程式設計軟體題目,求大神解答謝謝
VB程式設計裡的題目，求詳細程式設計。謝謝了