1樓:匿名使用者
private sub c1_click()dim temp as string
temp=c2.caption
c2.caption=text1
text1=temp
end sub
2樓:cpp門徒
// c1按鈕click**
dim str as string
str = c2.caption
c2.caption = text1.texttext1.text = str
3樓:
一道vb特難題啊,吧我難到了
4樓:任翮允孤晴
option
explicit
private
subform_load()
onerror
resume
next
dimi,
d1,d2,
d3,d4
asintegeri=
cint(inputbox("請輸入乙個四位數","輸入",
"1234"))ifi
>9999ori
<1000
then
msgbox
"輸入有誤!"
elsed1=
i\1000d2=
(imod
1000)
\100d3=
(imod
100)\10
d4=imod
10msgbox
"千位數:"&d1
&vbcrlf&_
"百位數:"&d2
&vbcrlf&_
"十位數:"&d3
&vbcrlf&_
"個位數:"&d4
&vbcrlf
endif
endend
sub你直接複製執行即可
一道vb題目
5樓:匿名使用者
i s mid(s, i, k - 2 * (i - 1)) mid(s, i + 1, k - 2 * i) mid(s, i, 1)
1 bcdeaf bcdeaf cdea b
2 bdecaf deca ec d
3 bdecaf ec e
將結果全部細節輸出就能看懂了!
6樓:匿名使用者
len()求字串的長度 len(s)=6 k=6 k/2 =3
mid(字串,起始位置,字元個數):該函式返回從字串指定的位置開始的指定書目的字元
&是連線字元將兩端的字元連線起來
所以第一次 i=1
等號前mid(s, i, k - 2 * (i - 1)) =abcdef 之後 mid(s, i + 1, k - 2 * i) =bcde mid(s, i, 1)=a 所以後邊的值為bcdea 等號後邊的值開始將前者的值覆蓋,未覆蓋的保留,所以留下來的是bcdeaf
之後的迴圈也是如此,只是注意每次改變的時候s的值已經改變,應該在改變s值的基礎上進行運算
mid(s, i, k - 2 * (i - 1)) = mid(s, i + 1, k - 2 * i) & mid(s, i, 1)
就是後者將s中從 i 到k - 2 * (i - 1))的部分覆蓋替換,s其他部分不變
一道VB題目,一道VB的題目
private sub command1 click s abcdefabcdefabcdef k instr s c 獲取字串 c 在字串s的位置 do while k 0 n n 1 統計在字串s共有多少個字串 c s mid s k 1 將字串s的第k 1個位置到結尾賦給本身 k instr ...
一道vb題目求大神幫忙, 急 一道vb題目,求大神幫忙!
如題目原文如此,則程式沒有問題,完全正確。具體要看題目的要求。比如 奇數日通行 還是 偶數日限行 急 一道vb題目,求大神幫忙!這個彎路繞大了,36!3.71993e 41,是個億億億億億級的數字,vb中沒有什麼資料型別能精確存放它的結果,而36 7 36 7 只需要算 36 35 34 33 32...
問一道VB題目啊,問一道VB程式題
i 1,j 1 x 1,1 x 0,0 1 1 2i 1,j 2 x 1,2 x 0,1 1 2 3.i 1,j 5 x,5 x 0,4 1 6 6 i 2,j 1 x 2,1 x 1,0 2 1 3i 2,j 2 x 2,2 x 1,1 2 2 2 2 2 6i 2,j 3 x 2,3 x 1,2...
一道有關vb程式設計的題目,一道關於vb的簡單程式設計題目
private sub form click for i 100 to 1000 if i mod 37 0 then print inext i end sub 第二題private sub form click dim n as integer,i as integer,a as integer...
vb一道讀程式和一道程式設計序的題目急!(高手請進
private sub dir1 change file1.path dir1.pathend sub private sub drive1 change dir1.path drive1.driveend sub private sub form load file1.pattern bat dr...