题目内容
（请给出正确答案）
[主观题]
下列程序段的功能是实现“学生”表中“年龄”字段值加1：Dim Str As String Str=””Docmd．RunSQL Str空
白处应填入的程序代码是（）。
A.年龄=年龄+1
B.Update学生Set年龄=年龄+1
C.Set年龄=年龄+1
D.Edit学生Set年龄=年龄+1
提问人：网友elaoto
发布时间：2022-01-06
如搜索结果不匹配，请 
A、条件构造错误
B、编译不通过
C、出现多语义
D、语义与查询意图不符
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“下列程序段的功能是实现“学生”表中“年龄”字段值加1：Dim…”相关的问题
第1题
一段构造SQL语句的程序代码如下： Str_temp =“Select * From Student Where ”； If (cbx_id.checked = true and len(trim(sle_id.text))>0) then Str_temp= Str_temp + “(sid like ‘”+trim(sle_id.text)+“’)” End if If (cbx_name.checked = true and len(trim(sle_name.text))>0) then Str_temp= Str_temp+ “(sname like ‘”+ trim(sle_name.text)+ “’)” End if 该段程序出现的问题是________。
第2题
某人为计算n!(0
Private Function fun(n As Integer)As Long
Dim P As Long
P=1
For k=n-1 To 2 Step-1
P=P*k
Next k
fun=P
EndFunction
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是
A．把P=1改为P=n
B．把For k=n-1 To 2 Step-1改为For k=1 To n-l
C．把For k=n-1 T02 Step-1改为Fork=1 To n
D．把For k=n-1 To 2 Step-l改为FOr k=2 To n
第3题
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer, y As Integer x=12:y=32 Call PCS(x, y) Print x; y End Sub Public Sub PCS(ByVal n As Integer, ByVal m As Integer) n = n Mod 10 m=m Mod 10 End Sub
A．12 32
B．2 32
C．2 3
D．12 3
第4题
指令 WAIT R[2] <>1, TIMEOUT, LBL[I]，如果R[2]=1，那么程序怎么执行（ ）。
A、在等待规定的时间后跳转至LBL[I]
B、跳转至LBL[I]
C、一直等待至条件满足后跳转至LBL[I]
D、不能满足条件，直接往下一行执行
第5题
设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Len(xStr) i=1 Do While i＜＝strL/2 tStr＝tStr & Mid(xStr,i,1) & Mid(xStr,strL-i+1，1) i＝i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef" Text1.Text=UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，则Text1中显示的是______。
A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC
第8题
窗体上添加有3个命令按钮，分别命名为Commandl、Command2和Command3，编写Commandl的单击事件过程，完后能为：当单击按钮Commandl时，按钮Command2可用，按钮Command3不可见。以下正确的是（）。
A.Pfivate Sub Command l Click（） Command2．Visible=TrueCommand3．Visible=False
B.Private Sub Commandl Click（） Command2．Enabled=TrueCommand3．Visible=FalseEndSubEndSub
C.Pfivate Sub Commandl_Click（） Command2．Enabled=TrueCommand3．Visible=False
D.Pfivme Sub Commandl click（） Command2．Visible=TrueCommand3．Enabled=FalseEndSubEnd Sub
