关于窗体中命令按钮的建立方法，下面正确的是（)

在窗体中添加记录的方法是()

A．单击“浏览按钮”中的“添加新记录”

B．单击“选择对象”中的“添加新记录”

C．单击“命令按钮”中的“添加新记录”

D．单击“分页符按钮”中的“添加新记录”

下列关于宏的说法中不正确的是()

A．宏是若干个操作的集合

B．每个宏操作都有相同的宏操作参数

C．宏操作不能自定义

D．宏操作通常与窗体、报表中的命令按钮结合使用

话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1．Filter=【 】 CommonDialog1．FilterIndex=【 】 CommonDialog1．ShowSave Info．Text=【 】 End Sub

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。

"2002", 75 "英语" "2003", 92 "体育" "2004", 66 Type bs aa As String * 2 bb As String * 4 cc As Integer End Type Private Sub command1_Click(Dim xs As bs Dim fl As Integer fl = FreeFile Open "d:\data.txt" For Input As fl Do While Not EOF(fl) Input fl, xs.aa, xs .bb, xs.cc List1.AddItem xs.bb List1.AddItem xs.aa List1.AddItem xs.cc Loop Print EOF(fl) Close End Sub 问：在列表框中第一行、第三行、第四行的内容是【 】、【 】、【 】。窗体上打印出的是【 】。

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer) M=IIf(x＞y,x，y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后，单击命令按钮，输出结果为【 】。

编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是【 】。

A.先表单的Destroy事件，然后表单的Unload事件，最后命令按钮的Unload事件

B.先命令按钮的Destroy事件，然后表单的Destroy事件，最后表单的Unload事件

C.先表单的Destroy事件，然后命令按钮的Destroy事件，最后表单的Unload事件

D.先表单的Unload事件，然后命令按钮的Destroy事件，最后表单的Destroy事件

增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。 Private Sub Form_Load() Forml．Caption =“字体变化示范” cmdMax．Caption=“字体变大” cmdMin．Caption=“字体变小” End Sub Private Sub cmdMax_Click() 【 】 Forml．Print”字体由小变大” End Sub Private Sub cmdMin_Click() 【 】 Forml．Print“字体由大变小” End Sub

应”表建立如下表单： 设计名为projectsupply的表单(表单控件名和文件名均为projectsupply)。表单的标题为“工程用零件情况浏览”，界面如图所示。

表单中有一个表格控件和两个命令按钮“查询”和“退出”。运行表单时，单击“查询”命令按钮后，表格控件中显示了工程号“J1”所使用的零件的零件名、颜色和重量。 单击“退出”按钮关闭表单。