注册

题型：单选题题类：常考题难易度：普通

浙江省台州市2017-2018学年高三上学期信息技术期末质量评估卷

【加试题】有如下VB程序段(数组a各元素的初始值均为0)。

n=Len(Text1.Text)：c=1

For i=1 To n

s=Mid(Text1.Text，i，1)

If s>=“0”And s<=“9”Then

a(c)=a(c)*10+Val(s)

Else

If a(c)>0 Then c=c+1

End If

Next i

在文本框Text1中输人“No1：X：123：Y：680：End”。执行该程序段后，数组a(2)的值为（）

A、1 B、2 C、3 D、123

举一反三

【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字，用户输入猜测的数字，电脑判断用户所猜密码的正确性，如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了！”，否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的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

在vb中，表达式25\3 mod 3*int(2.5)的值为（）

关系式-5<=X<=5所对应的布尔表达式是：{#blank#}1{#/blank#}

VB中，设x=298，能得到其个位数字“8”的正确表达式是（）

小明编写了一个字符串加密程序，功能如下：在文本框Text1中输入明码，单击“加密”按钮Command1后，在文本框Text2中显示加密后的密文，运行界面如下图所示。

加密算法如下：

1)将明码中每个字符的八位二进制ASCII码(不足八位的左端补0，凑足八位)分成两段(左4位一段，右4位为另一段)，如字符“C”的二进制ASCII值为01000011，分段后为0100，0011；

2)将高位段(左边4位)左移一位，并将原第一位数码移到第4位(如0100转化为1000)，再转化为十六进制数(如1000化为8)；

3)对另一段(右4位)执行2)所示算法，如0011→0110→6；

4)顺次连接两位十六进制数，得到该字符的暗码，如“C”的暗码为“86”；

5)将每个字符的暗码按照明码的顺序连接。

实现上述功能的VB程序如下，请回答下列问题：

在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在 Label1中。例如，三个点的坐标（5，10）、（8，12）、（6，17）输入格式如图所示。

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服