窗體上畫一個命令按鈕

⑴ 在窗體上畫一個命令按鈕(名稱為Command1)，並編寫如下代碼: Function fun1(ByVal a As Integer, b As Inte

B，算過了

⑵ 在窗體上畫一個命令按鈕 command1編寫如下代碼

option base 0
private sub command1_click()
dim a1(4) as integer, a2(4)as integer
for k=0 to 2 '這個事循環三次的o to 2是指0,1,2.所以循環的是三次
a1(k+1)=inputbox("請輸入一個整數")
a2(3-k)=a1(k+1)
next k
print a2(k)
end sub

⑶ 在窗體上畫一個命令按鈕和一個通用對話框,其名稱分別為command1和commondialog1,

答案是：

ifend程序運行後，單擊命令按鈕，將顯示一個對話框。（1）該對話框的標題是（OpenFile（.EXE））。（2）該對話框「文件類型」框中顯示的內容是（（*.doc））。（3）單擊「文件類型」框右端的箭頭，下拉顯示的內容是(四項，分別為：all files；*.exe;*.txt;*.doc)。（4）如果在對話框中不選擇文件，直接單擊「取消」按鈕，則顯示在信息框中的信息是(No file selectd)，該信息框中的按鈕是（重試）和（取消）。

你提供的信息有點亂，我整理了一下：

Private Sub Command1_Click()

CommonDialog1.Flags = cdlOFNFileMustExist

CommonDialog1.Filter = "AllFiles|*.*|（*.exe）|*.exe（*.TXT）|*.TXT|（*.doc）|*.doc|"

CommonDialog1.FilterIndex = 4

CommonDialog1.DialogTitle = "OpenFile(.EXE)"

CommonDialog1.Action = 1

If CommonDialog1.FileName = "" Then

MsgBox "No file selectd", 37, "Cheching"

Else

End

End If

End Sub

這樣就可以運行了，結果為：

用心良苦，望採納

⑷ vb在窗體上畫一個文本框和一個命令按鈕(命令按鈕的標題設置為"顯示信息"),運行

（1）

PrivateSubCommand1_Click()
Print"AAAAAAA"
Text1.Text="BBBBBB"
EndSub

（2）

PrivateSubCommand1_Click()
Text1.Move0,0
Text1.Text="歡迎使用"
EndSub

（3）

PrivateSubForm_Load()
Me.Move1000,2000,6000,3000
EndSub

⑸ 在窗體上畫一個命令按鈕（command1) 編寫如下代碼

改成t+b才對,否則結果是10
print fun1(fun1(x,(fun1(x,x-1))),x-1),我們先看中間的fun1(x,x-1),X=10,那麼就是fun(10,9),進到函數fun1中,t=a-b=10-9=1,b=t+a=10+1=11,則fun1=t+b=1+11=12,再回到到按鈕點擊事件中進行,代入之後得fun1(fun1(x,(fun1(x,x-1))),x-1)=fun1(fun1(x,12),x-1).看中間的函數fun1(x,12)=fun1(10,12),進入函數,t=10-12=-2,b=t+a=-2+10=8,fun1=-2+8=6.再回事件fun1(fun1(x,12),x-1)=fun1(6,x-1)=fun1(6,9),進入函數,t=6-9=-3,b=t+a=-3+6=-3,fun1=t+b=-3+3=0

⑹ 在窗體上畫一個命令按鈕,然後編寫如下事件過程

a=2
b=1
x=-1退出doloop循環
a=2+1-1=2 選A

⑺ vb在窗體上畫一個命令按鈕，然後編寫如下事件過程：

不管循環過程中輸入的是什麼，A的最終值僅決定於最後一組數（每組3個數）。
你所說的數據中，最後一組是2、1、-1
也就是A = 2，B = 1，x = -1
A的值是 2 + 1 + (-1) ，就是2
最終的輸出結果就是 2

⑻ 10) 在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程：

當然是c了,
首先,
do...loop語句只會執行一次,
此時a<=0的條件直接就不成立了,
所以終止循環.
在這一次循環中,
s=s+1,
s值為原有的s與a之和,
即9;
a=a-1,
a值為自身值減1,
為7,
所以c是正確的

⑼ 在窗體上畫一個命令按鈕，然後編寫如下事件過程

在窗體上畫一個名稱為Command1的命令按鈕，再畫兩個名稱為label1.label2的標簽，然後編寫如下程序代碼private x as integerprivate sub command2 click()x=5:y=3call proc(x,y)label1.caption=xlabel2.caption=yend subprivate sub proc(byval a as integer,byval b as integer)x = a*ay=b+bend sub程序運行後，單擊命令按鈕，則兩個標簽中顯示的內容分別是什麼。我是新手，麻煩具體和我寫一下算的過程。謝謝

⑽ 在窗體上畫一個名稱為Command1的命令按鈕，然後編寫如下事件過程： Private Sub Command1_Click() Dim x a

體上畫一個命令按鈕,然後編寫如下事件過程:
Private Sub Command1_Click()
a=Val(InputBox("",,0))
b=Val(InputBox("",,0))
x=a+b
If a>b Then
x=a-b
End If
Print x
End Sub
程序運行時從兩個輸入框中輸入 3 和 4,輸出 x 的值是().
A:3 B:5 C:7 D:9