在窗體上畫一個命令按鈕其名稱為

❶ 在窗體上畫一個名稱為Button1的命令按鈕

24

44

64

張志晨測試：

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

在窗體上畫一個名稱為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程序運行後，單擊命令按鈕，則兩個標簽中顯示的內容分別是什麼。我是新手，麻煩具體和我寫一下算的過程。謝謝

❸ VB程序在窗體上畫一個命令按鈕，名稱為Command1，然後編寫如下代碼：

For k＝0 To 2
循環終止的條件是 K大於循環尾數就結束，
也就是K在步長為1時在執行完 k=2，變為K=3時跳出循環的，
所以最後的Print A2(k) 是A2(3)

❹ 32.在窗體上畫一個命令按鈕，名稱為Command1，然後編寫如下代碼：

當k=0時，A1(1)=2，A2(3)=2；當k=1時，A1(2)=4，A2(2)=4；當k=2時，A1(3)=6，A2(1)=6；這個過程之後，k的值已經等於2了，因為for循環本身執行了一次之後k值會加1，而當k=3時，不滿足條件，跳出循環，所以此時的A2(k)就是求的是A2(3)=2。因此選C

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

B，算過了

❻ 在窗體上畫一個名稱為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

❼ (7）在窗體上畫1個命令按鈕，其名稱為Command1，然後編寫如下事件過程：

Private Sub Command1_Click()
Dim arr(1 To 100) As Integer
For i = 1 To 100
arr(i) = Int(Rnd * 1000)
Next i
Max = arr(1): Min = arr(1)
For i = 1 To 100
If arr(i) > Max Then Max = arr(i)
If arr(i) < Min Then Min = arr(i)
Next i
Print "Max="; Max, "Min="; Min
End Sub

❽ 4.在窗體上畫一個命令按鈕,其名稱為Command1,然後編寫如下事件過程:

i=1時 If i=1 Then x=i 成立 x=1
且If i<=4 成立 x=x+1 x=2
i=2時 If i<=4 成立 x=x+1 x=3
i=3時 If i<=4 成立 x=x+1 x=4
i=4時 If i<=4 成立 x=x+1 x=5
i=5時 If i<=4 不成立 x=x+2 x=7
i=6時 If i<=4 不成立 x=x+2 x=9

選擇A

❾ 在窗體上畫一個命令按鈕(其Name屬性為Command1)，然後編寫如下代碼：

Option Base 1 Private Sub Command1_Click() Dim ａ a = Array(1, 2, 3, 4) j=1 For i = 4 To 1 Step -1 s = s + a(i)*j j =j * 10 Next i Print s End Sub 運行上面的程序，單擊命令按鈕，其輸出結果是 ( ) A.4321 B.12 C.34

❿ 在窗體上畫一個命令按鈕和一個通用對話框,其名稱分別為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

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

用心良苦，望採納