窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下：Private Sub Command1_Click() Dim m As String m＝InputBox("请输入字符串") Print pick_str(m)End SubPrivate Function pick_str(s As String)As String temp＝"" i＝1 sLen＝Len(s) Do While i<＝sLen / 2 temp＝temp＋Mid(s， i， 1)＋Mid(s， sLen－i＋1， 1) i＝i＋1 Loop pick_str＝tempEnd Function运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为( )。
- A.bcai
- B.cbia
- C.bcais
- D.cbias
热度🔥490
参考答案：A
解析：
【解析】过程pick_str的功能是对输入的字符串的字符重新组合，通过Do循环从原字符串中头尾开始各取一个字符重新组合，循环次数小于等于原字符串长度整除2的值。当输入字符串是"basic"时，字符串长度为5，循环次数为5/2＝2次，因此取出的字符依次是"b"，"c"，"a"，"i"。即"bcai"，因此答案为A。
【解析】过程pick_str的功能是对输入的字符串的字符重新组合，通过Do循环从原字符串中头尾开始各取一个字符重新组合，循环次数小于等于原字符串长度整除2的值。当输入字符串是"basic"时，字符串长度为5，循环次数为5/2＝2次，因此取出的字符依次是"b"，"c"，"a"，"i"。即"bcai"，因此答案为A。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
数据库中有数据表"Emp"，包括"Eno"、"Ename"、"Eage"、"Esex"、"Edate"、"Eparty"等字段。下面程序段的功能是：在窗体文本框"tValue"内输入年龄条件，单击"删除"按钮完成对该年龄职工记录信息的删除操作。
Private Sub btnDelete_Click() '单击"删除"按钮
Dim strSQL As String '定义变量
strSQL＝"delete from Emp" '赋值SQL基本操作字符串
'判断窗体年龄条件值无效(空值或非数值)处理
If IsNull(Me!tValue)＝True Or IsNumeric(Me!tValue)＝False Then
MsgBox "年龄值为空或非有效数值！"， vbCritical， "Error"
'窗体输入焦点移回年龄输入的文本框"tValue"控件内
Me!tValue.SetFocus
Else
'构造条件删除查询表达式
strSQL＝strSQL & " where Eage＝" & Me!tValue
'消息框提示"确认删除？(Yes/No)"，确认后实施删除操作
If Then
DoCmd.RunSQL strSQL ' 执行删除查询
MsgBox "completed！"， vbInformation， "Msg"
End If
End If
End Sub
按照功能要求，在横线上应填写的是( )。
有以下程序：
#include
#include
main()
{ char str[][20]＝{"One*World"，"One*Dream！"}，*p＝str[1]；
printf("%d，"，strlen(p))； printf("%s\n"，p)；
}
程序运行后的输出结果是( )。
有以下程序：
#include
#include
typedef struct { char name[9]； char sex； int score[2]； } STU；
STU f (STU a)
{ STU b＝{"Zhao"， 'm'， 85， 90}；
int i；
strcpy( a.name， b.name )；
a.sex ＝ b.sex；
for ( i＝0； i<2； i＋＋ ) a.score[i] ＝ b.score[i]；
return a；
}
main()
{ STU c＝ { "Qian"， 'f'， 95， 92 }， d；
d ＝ f(c)；
printf ("%s，%c，%d，%d， "， d.name， d.sex， d.score[0]， d.score[1])；
printf ("%s，%c，%d，%d\n"， c.name， c.sex， c.score[0]， c.score[1])；
}
程序运行后的输出结果是( )。
配置Windows 2003系统WWW服务器时，下列选项中不能作为网站标识的是（）。
下列关于物理存储介质的叙述中，哪一条是错误的？
