窗体有命令按钮Commandl和文本框Textl，对应的事件代码如下： Private Sub Command1_Click() For i＝1 To 4 x＝3 For j＝1 To 3 For k＝1 To 2 x＝x ＋ 3 Next k Next j Next i Text1.Value＝Str(x) End Sub 运行以上事件过程，文本框中的输出是( )。
- A.6
- B.12
- C.18
- D.21
热度🔥489
参考答案：D
解析：
【解析】题目中程序是在文本框中输出x的值，x的值由一个三重循环求出，在第一重循环中，x的初值都是3，因此，本段程序x重复运行4次，每次都是初值为3，然后再经由里面两重循环的计算。在里面的两重循环中，每循环一次，x的值加3，里面两重循环分别从1到3，从1到2共循环6次，所以x每次加3，共加6次，最后的结果为x＝3＋6*3=21。Str函数将数值表达式转换成字符串，即在文本框中显示21。
【解析】题目中程序是在文本框中输出x的值，x的值由一个三重循环求出，在第一重循环中，x的初值都是3，因此，本段程序x重复运行4次，每次都是初值为3，然后再经由里面两重循环的计算。在里面的两重循环中，每循环一次，x的值加3，里面两重循环分别从1到3，从1到2共循环6次，所以x每次加3，共加6次，最后的结果为x＝3＋6*3=21。Str函数将数值表达式转换成字符串，即在文本框中显示21。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
教师管理数据库有数据表"teacher"，包括"编号"、"姓名"、"性别"和"职称"四个字段。下面程序的功能是：通过窗体向teacher表中添加教师记录。对应"编号"、"姓名"、"性别"和"职称"的4个文本框的名称分别为：tNo、tName、tSex和tTitles。当单击窗体上的"增加"命令按钮(名称为Command1)时，首先判断编号是否重复，如果不重复，则向"teacher"表中添加教师记录；如果编号重复，则给出提示信息。
有关代码如下：
Private ADOcn As New ADODB.Connection
Private Sub Form_Load()
'打开窗口时，连接Access本地数据库
Set ADOcn＝
End Sub
Private Sub Command0_Click()
'追加教师记录
Dim strSQL As String
Dim ADOcmd As New ADODB.Command
Dim ADOrs As New ADODB.Recordset
Set ADOrs.ActiveConnection＝ADOcn
ADOrs.Open "Select 编号 From teacher Where 编号＝'" ＋ tNo ＋ "'"
If Not ADOrs.EOF Then
MsgBox "你输入的编号已存在，不能新增加！"
Else
ADOcmd.ActiveConnection ＝ ADOcn
strSQL＝"Insert Into teacher(编号，姓名，性别，职称)"
strSQL＝strSQL ＋ "Values('" ＋ tNo ＋ "'，'" ＋ tname ＋ "'，'" ＋ tsex ＋ "'，'" ＋ ttitles ＋ "')"
ADOcmd.CommandText＝strSQL
ADOcmd.Execute
MsgBox "添加成功，请继续！"
End If
ADOrs.Close
Set ADOrs＝Nothing
End Sub
按照功能要求，在横线上应填写的是( )。
程序中已构成如下图所示的不带头结点的单向链表结构，指针变量s、p、q均已正确定义，并用于指向链表结点，指针变量s总是作为指针指向链表的第一个结点。
若有以下程序段
q=s; s=s->next; p=s;
while(p->next) p=p->next;
p->next=q; q->next=NULL;
该程序段实现的功能是
下面不是键盘事件的是( )。
SQL语句中删除表的命令是
DBAS需求分析阶段的性能分析是分析DBAS应具有的性能指标。下列不属于DBAS性能指标的是（）
