求vb程式設計題目,VB程式設計題目

1樓：匿名使用者

dim operatingsystem as string, otherequipment as string

private sub ***mand1_click()

text2.text = ""

otherequipment = ""

for i = 0 to 2

if check1(i).value = 1 then

otherequipment = otherequipment + check1(i).caption + vbcrlf

end if

next i

text2.text = text2.text + ***bo1.

text + vbcrlf + operatingsystem + vbcrlf + text1.text + vbcrlf + otherequipment

end sub

private sub form_load()

***bo1.additem "聯想"

***bo1.additem "方正"

***bo1.additem "ibm"

***bo1.additem "***paq"

***bo1.additem "相容

機"end sub

private sub option1_click(index as integer)

operatingsystem = option1(index).caption

end sub

vb程式設計題目

2樓：鄭桂蘭韶巳

窗體上新增2個文字框和1個按鈕，文字框用來顯示2個同學名字private

sub***mand1_click()

'交換名字

dims

asstrings=

text1.text

text1.text

=text2.text

text2.text=s

endsub

VB程式設計題目，vb程式設計題目

給郵箱,發工程,以免自己除錯不出來 private sub command1 click timer1.enabled true end sub private sub command2 click timer1.enabled false timer2.enabled true label1.ca...

vb程式設計題，vb程式設計題目

dim a 1 to 80 as integer dim js as integer dim os as integer private sub command1 click dim i,j,k randomize j 0 text1.text for i 1 to 80 a i int rnd 9...

一道VB程式設計題目，求大佬解答,一道vb程式設計題目求大佬解答！！！

private sub mand1 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 ne...