窗体上画一个命令按钮

⑴ 在窗体上画一个命令按钮(名称为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