注册

题型：单选题题类：模拟题难易度：普通

2017年浙江省高考信息技术模拟试卷（一）

【加试题】设窗体上已经添加了command1、text1、label1对象，当文本框中输入8时下列代码段运行后的结果会是（）

Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim i As Integer

n = Val(Text1.Text)

s = 1

For i = 2 To n

s = s * i

Next i

Label1.Caption = Str(n) + "!=" + Str(s)

End Sub

A、程序有语法错误 B、出现“溢出”错误 C、8!= 4032 D、8!= 40320

举一反三

【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字，用户输入猜测的数字，电脑判断用户所猜密码的正确性，如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了！”，否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的n位数字分别保存在数组num的n个下标变量num (1)、num (2)、…、num (n)中。
程序界面如图VB-1所示，用户在文本框Text1中输入数字长度，单击“确定长度”按钮（Command1）后，在文本框Text2中输入数字，单击“判定”按钮（Command2）后，程序在标签Label3中输出校验结果。
相应的程序如下，在程序划线处，填入适当的语句或表达式，把程序补充完整。

Dim num(1 To 25) As Integer
Private Sub Command1_Click()
Dim i As Integer，n As Integer
n = Val(Text1.Text)
For i = 1 To n                   '产生n位小于8的密码，每位一个非负整数，保存到数组num
num(i) = {#blank#}1{#/blank#}
Next i
End Sub
Private Sub Command2_Click()
Dim x(1 To 25) As Integer, i As Integer, s As Integer, n As Integer
n = Val(Text1.Text)
For i = 1 To n
     x(i) = {#blank#}2{#/blank#}    '把文本框中数字逐个分割出来并转化成数值
Next i
s = 0                               '变量s保存不同字符的总数
For i = 1 To n
If num(i) <> x(i) Then s = s + 1
Next i
If {#blank#}3{#/blank#} Then
Label3.Caption = "恭喜你猜中了！"
Else
      Label3.Caption = "你输入的数字共有" + Str(s) + "个字符不符"
End If
End Sub

下面是用于实现S=1*2+3*4+5*6+7*8+9*10的算法的流程图，则划线处分别应填写：（）

编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。

某算法流程图如图所示，执行这部分流程后，变量s的值是（）

某算法的部分流程图如图所示：

执行这部分流程后，变量a的值是（）

有如下VB程序段：

s = Text1.Text: sum = 0: t = 0: cnt = 1

For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

j=j+1

Else

If cnt Mod 2 = 1 Then sum = sum + val(mid(s,i-j,j))

j= 0：cnt = cnt + 1

End If

Next i

在文本框text1输入“12d6a3c4f20”，程序运行后sum的值是（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服