1、数据输入_输出及答案解析(总分：44.00，做题时间：90 分钟)一、B选择题/B(总题数：10，分数：20.00)1.以下语句执行时，从键盘上输入 Zhang，执行结果是_。 Dim a As String a=InputBox(“Input“，“，“Name“) Print a（分数：2.00）A.InputB.NameC.ZhangD.空字符串2.以下语句的输出结果是_。 a$=“123“ b$=“456“ Print a$；b$（分数：2.00）A.123456B.123456C.123456D.1234563.下列事件过程运行时，信息框中出现的结果是_。 Private Sub Co
2、mmand1_Click() MsgBox Str(123123) End Sub（分数：2.00）A.123123B.123C.246D.显示出错信息4.语句 Print 45/6*7/8 Mod 9 的值是_。（分数：2.00）A.4B.5C.6D.75.执行语句 Print Format(1234.567，”#，#0.00”)后，输出结果是_。（分数：2.00）A.1234.57B.12,34.57C.1,234.567D.1,234.566.以下语句的输出结果是_。 Print Format(12345.6，“000,000.00“)（分数：2.00）A.12345.6B.12,345
3、.6C.012,345.60D.12,345.607.以下语句的输出结果是_。 a=123 b=456 Print a；b（分数：2.00）A.123456B.123456C.123456D.1234568.下列语句执行后的输出结果是_。 Wage=26 Print“工资“； Print Wage（分数：2.00）A.工资26B.工资26C.“工资“26D.“工资“269.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static a AS Integer Static b As Integer Cls b=2
4、b=b+2 a=3+a Print a，b End Sub 程序运行后，三次单击该命令按钮，此时窗体上显示的结果是_。（分数：2.00）A.3 5B.6 6C.3 3D.9 410.下列程序的执行结果是_。 X=-62 Print Sgn(x)Abs(x)Int(x)（分数：2.00）A.-36B.1C.-1D.-72二、B填空题/B(总题数：12，分数：24.00)11.InputBox函数返回值的类型为U 【1】 /U。（分数：2.00）填空项 1:_12.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Y as Strin
5、g X=5 Y=X & Space(3) & X Print X； Print Trim(Y)；Len(Trim(Y) End Sub 该程序的执行结果是U 【2】 /U。（分数：2.00）填空项 1:_13.下列函数调用时弹出的对话框中按钮的个数为U 【3】 /U。 MsgBox(“程序非法!“，vbAbortRetryIgnore，“消息提示：“)（分数：2.00）填空项 1:_14.语句 Print 12；Tab；24 的执行结果是U 【4】 /U。（分数：2.00）填空项 1:_15.下列程序执行时，要求输入一个密码，如果密码不正确，则显示出非法用户的对话框。请填空。 Const Pa
6、ssWord=“12345678“ Dim inpass As String inpass=U 【5】 /U(“请输入你的密码“，“输入密码“) If inpass=PassWord Then Exit Sub Else U 【6】 /U“对不起!你是非法用户。“，vbOKOnlyvbCritical，“拒绝“ Unload Me End If（分数：2.00）填空项 1:_16.下列语句的执行结果是U 【7】 /U。 X=10 Print x2；x2；x6（分数：2.00）填空项 1:_17.语句 Print“12535“；12532 的执行结果是U 【8】 /U。（分数：2.00）填空项
7、1:_18.下列程序执行时，从键盘上依次输入 123和 234，则程序的输出结果是U 【9】 /U。 a=InputBox(“请输入第一个整数“) b=InputBox(“请输入第二整数“) Print ab（分数：2.00）填空项 1:_19.下列程序执行时，从键盘上依次输入 123和 234，则程序的输出结果是U 【10】 /U。 Dim a,b As Integer a=InputBox(“请输入第一个整数“) b=InputBox(“请输入第二整数“) Print a+b（分数：2.00）填空项 1:_20.以下程序的输出结果是U 【11】 /U。 x=12.7 x=Int(x0.5)
8、 Print X（分数：2.00）填空项 1:_21.设 a=sqr(2)*sqr(3)，下列语句的输出结果分别是U 【12】 /U、U 【13】 /U、U【14】 /U、U 【15】 /U。 Print format$(a，“000.00“) Print formats(a，“#.#00“) Print format$(a，“00.00e00“) Print format$(a，“-#.#“)（分数：2.00）填空项 1:_22.假设有如下事件过程： Private Sub Command1_Click() msg1$=“Are You Continue to?“ msg2$=“Open T
9、he Books“ r=MsgBox(msg1$，34，msg2$) End Sub 运行该程序后，所出现的对话框的标题是U 【16】 /U。（分数：2.00）填空项 1:_数据输入_输出答案解析(总分：44.00，做题时间：90 分钟)一、B选择题/B(总题数：10，分数：20.00)1.以下语句执行时，从键盘上输入 Zhang，执行结果是_。 Dim a As String a=InputBox(“Input“，“，“Name“) Print a（分数：2.00）A.InputB.NameC.Zhang D.空字符串解析：2.以下语句的输出结果是_。 a$=“123“ b$=“456“ P
10、rint a$；b$（分数：2.00）A.123456B.123456 C.123456D.123456解析：3.下列事件过程运行时，信息框中出现的结果是_。 Private Sub Command1_Click() MsgBox Str(123123) End Sub（分数：2.00）A.123123B.123C.246 D.显示出错信息解析：4.语句 Print 45/6*7/8 Mod 9 的值是_。（分数：2.00）A.4B.5 C.6D.7解析：5.执行语句 Print Format(1234.567，”#，#0.00”)后，输出结果是_。（分数：2.00）A.1234.57B.12
11、,34.57 C.1,234.567D.1,234.56解析：6.以下语句的输出结果是_。 Print Format(12345.6，“000,000.00“)（分数：2.00）A.12345.6B.12,345.6C.012,345.60 D.12,345.60解析：7.以下语句的输出结果是_。 a=123 b=456 Print a；b（分数：2.00）A.123456B.123456C.123456D.123456 解析：8.下列语句执行后的输出结果是_。 Wage=26 Print“工资“； Print Wage（分数：2.00）A.工资26 B.工资26C.“工资“26D.“工资“2
12、6解析：9.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static a AS Integer Static b As Integer Cls b=2 b=b+2 a=3+a Print a，b End Sub 程序运行后，三次单击该命令按钮，此时窗体上显示的结果是_。（分数：2.00）A.3 5B.6 6C.3 3D.9 4 解析：10.下列程序的执行结果是_。 X=-62 Print Sgn(x)Abs(x)Int(x)（分数：2.00）A.-36B.1C.-1 D.-72解析：二、B填空题/B(总题数：1
13、2，分数：24.00)11.InputBox函数返回值的类型为U 【1】 /U。（分数：2.00）填空项 1:_ （正确答案：字符串型）解析：12.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Y as String X=5 Y=X & Space(3) & X Print X； Print Trim(Y)；Len(Trim(Y) End Sub 该程序的执行结果是U 【2】 /U。（分数：2.00）填空项 1:_ （正确答案：5555）解析：13.下列函数调用时弹出的对话框中按钮的个数为U 【3】 /U。 MsgBox(“程
14、序非法!“，vbAbortRetryIgnore，“消息提示：“)（分数：2.00）填空项 1:_ （正确答案：3）解析：14.语句 Print 12；Tab；24 的执行结果是U 【4】 /U。（分数：2.00）填空项 1:_ （正确答案：1224）解析：15.下列程序执行时，要求输入一个密码，如果密码不正确，则显示出非法用户的对话框。请填空。 Const PassWord=“12345678“ Dim inpass As String inpass=U 【5】 /U(“请输入你的密码“，“输入密码“) If inpass=PassWord Then Exit Sub Else U 【6】
15、/U“对不起!你是非法用户。“，vbOKOnlyvbCritical，“拒绝“ Unload Me End If（分数：2.00）填空项 1:_ （正确答案：5 InputBox 6 MsgBox）解析：16.下列语句的执行结果是U 【7】 /U。 X=10 Print x2；x2；x6（分数：2.00）填空项 1:_ （正确答案：121216）解析：17.语句 Print“12535“；12532 的执行结果是U 【8】 /U。（分数：2.00）填空项 1:_ （正确答案：12535157）解析：18.下列程序执行时，从键盘上依次输入 123和 234，则程序的输出结果是U 【9】 /U。
16、a=InputBox(“请输入第一个整数“) b=InputBox(“请输入第二整数“) Print ab（分数：2.00）填空项 1:_ （正确答案：123234）解析：19.下列程序执行时，从键盘上依次输入 123和 234，则程序的输出结果是U 【10】 /U。 Dim a,b As Integer a=InputBox(“请输入第一个整数“) b=InputBox(“请输入第二整数“) Print a+b（分数：2.00）填空项 1:_ （正确答案：357）解析：20.以下程序的输出结果是U 【11】 /U。 x=12.7 x=Int(x0.5) Print X（分数：2.00）填空项
17、 1:_ （正确答案：13）解析：21.设 a=sqr(2)*sqr(3)，下列语句的输出结果分别是U 【12】 /U、U 【13】 /U、U【14】 /U、U 【15】 /U。 Print format$(a，“000.00“) Print formats(a，“#.#00“) Print format$(a，“00.00e00“) Print format$(a，“-#.#“)（分数：2.00）填空项 1:_ （正确答案：12 002.45 13 2.449 14 24.49e-01 15 -2.4495）解析：22.假设有如下事件过程： Private Sub Command1_Click() msg1$=“Are You Continue to?“ msg2$=“Open The Books“ r=MsgBox(msg1$，34，msg2$) End Sub 运行该程序后，所出现的对话框的标题是U 【16】 /U。（分数：2.00）填空项 1:_ （正确答案：Open The Books）解析：
