在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序
A.abcEFG
B.abcefg
C.ABCefg
D.ABCEFG
A.abcEFG
B.abcefg
C.ABCefg
D.ABCEFG
在窗体上画一个名称为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 请填空。
在窗体中添加记录的方法是()
A.单击“浏览按钮”中的“添加新记录”
B.单击“选择对象”中的“添加新记录”
C.单击“命令按钮”中的“添加新记录”
D.单击“分页符按钮”中的“添加新记录”
在窗体上画一个命令按钮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,然后编写如下程序: 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,输出结果是【 】。
在考生文件夹中完成如下综合应用: 在考生文件夹中设计名为Supper的表单(表单的控件名和文件名均为Supper),表单的标题为“机器零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。 运行表单时单击“查询”命令按钮后,表格控件中显示“供应”表工程号为“A7”所使用的零件的“零件名”、“颜色”、和“重量”,并将结果放到表CI中。 单击“关闭”按钮关闭表单。
A.Alt
B.Shift
C.Ctrl
D.Alt+Shift