![](https://static.youtibao.com/asksite/comm/h5/images/m_q_title.png)
在窗体上画三个单选按钮,组成—个名为chkOption的控件数组。用于标识各个控件数组元素的参数是A.Ta
在窗体上画三个单选按钮,组成—个名为chkOption的控件数组。用于标识各个控件数组元素的参数是
A.Tag
B.Index
C.List1ndex
D.Name
![](https://static.youtibao.com/asksite/comm/h5/images/solist_ts.png)
在窗体上画三个单选按钮,组成—个名为chkOption的控件数组。用于标识各个控件数组元素的参数是
A.Tag
B.Index
C.List1ndex
D.Name
在窗体上画—个命令按钮,其名称为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 程序运行后,单击命令按钮,输出结果为【 】。
在窗体上画一个名称为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 请填空。
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。
在窗体上画一个命令按钮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,输出结果为【 】。
Private Sub Command1_Click()
Dim a (10,10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 1 To 3
a (i, j) = (i – 1) * 3 + j
Print a(i, j );
next j
next i
End Sub
程序运行后, 单击命令按钮, 窗体上显示的是______
A.1 2 3 2 4 6 3 6 9
B.2 3 4 3 4 5 4 5 6
C.1 4 7 2 5 8 3 6 9
D.1 2 3 4 5 6 7 8 9
编写如下通用过程: 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,输出结果是【 】。
(1)创建一个查询,查找女学生的“姓名”、“课程名”和“成绩”3个字段的内容,将查询命名为“qT1”。
(2)创建追加查询,将表对象“tStud”中有书法爱好的学生的“学号”、“姓名”和“入校年”3列内容追加到目标表“tTemp”的对应字段内,将查询命名为“qT2”。(规定:“入校年”列由“人校时间”字段计算得到,显示为4位数字形式。)
(3)补充窗体“tTest”上“testl”按钮(名为“bt1”)的单击事件代码,实现以下功能:
打开窗体,在文本框“tText”中输入一段文字,然后单击窗体“tTest”上的“testl”按钮(名为“bt1”),程序将文本框内容作为窗体中标签“bTitle”的标题显示。
注意:不能修改窗体对象“fTest”中未涉及的控件和属性:只允许在“*****Add*****”与“*****Add*****”之间的空行内补充语句,完成设计。
(4)设置窗体“iTest”上“test2”按钮(名为“bt2”)的单击事件为宏对象“reTest”。
假定有下面的过程: Function Func(a As Integer,b As Integer)As Integer Static m As Integer,i As Integer m=0 i=2 i=i+m+1 m=i+a+b Func=m End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command 1_Click() Dim k As Integer,m As Integer Dim p As Integer k=4 m=1 p=Func(k,m) Print p; p=Func(k,m) Print p End Sub 程序运行后,单击命令按钮,输出结果为()。
A.8 17
B.8 16
C.8 20
D.8 8