(31)在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
Private Sub Command1_Click()
Dim i,j,x
For i = 1 To 20 step 2
x = 0
For j = To 20 step 3
x = x + 1
Next j
Next i
Textl.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是
A)1
B)7
C)17
D)400
(32)在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private Sub Commandl_Click()
Dim y As Integer
y = 0
Do
y = InputBox("y=")
If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;
Loop Until y = 0
End Sub
打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是
A)37 55 64 28 19 19
B)10 50 20
C)10 50 20 0
D)37 55 64 28 19
(33)在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 32
Call Proc(x, y)
Debug.Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n = n Mod 10
m = m Mod 10
End Sub
打开窗体运行后,单击命令按钮,立即窗口上输出的结果是
A)2 32
B)12 3
C)2 2
D)12 32
34)在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private Sub Commandl_Click()
Dim d1 As Date
Dim d2 As Date
dl = #12/25/2009#
d2 = #1/5/2010#
MsgBox DateDiff(” ww”, d1, d2)
End Sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是
A)1
B)2
C)10
D)11
(35)下列程序段的功能是实现“学生”表中“年龄”字段值加1
Dim Str As String
Str=" "
Docmd.RunSQL Str
空白处应填入的程序代码是
A)年龄=年龄+1
B)Update学生 Set 年龄=年龄+1
C)Set 年龄=年龄+1
D)Edit 学生 年龄=年龄+l
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。