在窗体上画一个命令按钮其名称为

❶ 在窗体上画一个名称为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

这样就可以运行了，结果为：

用心良苦，望采纳