2018-2019学年浙江省绍兴市诸暨中学高二（上）月考信息技术试卷（10月份）
发布：2024/11/4 9:30:2
一、选择题（本大题共13小题，每小题2分，共26分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分．）
-
1．在VB中，下列表达式的值为5的是（ ）
组卷：5引用：1难度：0.6 -
2．假设变量a=4，b=5，执行a=a*b：b=a/b：a=a/b语句以后，a和b的值分别是（ ）
组卷：7引用：1难度：0.5 -
3．在VB中，设整型变量x、y的值分别是3、6，则下列语句中，能实现在标签Label1中显示“s=18”的语句是（ ）
组卷：5引用：1难度：0.6 -
4．在Visual Basic中，能随机产生一个小写字母的表达式是（ ）
组卷：4引用：1难度：0.5 -
5．某算法的流程图如图所示。执行这部分流程后，输出S的结果是（ ）
组卷：2引用：1难度：0.3
二、非选择题（本大题共3小题，其中第14小题6分，第15小题9分，第16小题9分，共24分）
-
15．编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如图所示。
（1）若要修改窗体背景颜色，可在其属性窗口中属性的属性值进行修改。
（2）解决这个问题采用的算法是（填字母：A、解析算法 B、枚举算法）
实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （ ）
Dim i As Integer,x As Integer,c As Integer
c=0
For i=1000To 9999
x=①
If ②And x=7Then
③'将符合条件的四位数显示在列表框中
num=num+1
End If
Next i
Label2．Caption=“共有：“+④+“个“
End Sub组卷：21引用：1难度：0.4 -
16．编写VB程序，实现如下功能：程序运行时，在文本框Text1中输入任意字符串，单击按钮Command1，删除字符串中的非字母后，新字符串显示在Text2中，并找出ASCII码最小的字母，将其ASCII码显示在Text3中。程序运行界面如图所示。
（1）将命令按钮Command1中显示的文本“Command1”修改为“查找”，可在其属性窗口中将属性的属性值改为“查找”。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （ ）
Dim result As String,s As String,c As String
Dim n As Integer,i As Integer,j As Integer
s=Text1．Text
Text2．Text=““
For i=1To Len（s）
①
If n＞=65And n＜=90Or n＞=97And n＜=122Then
②
End If
Next i
Text2．Text=result
j=2
c=Mid（result,1，1）
Do While j＜=Len（result）
If Mid（result,j,1）＜c Then c=Mid（result,j,1）
③
Loop
Text3．Text=④
（3）如图所示，在文本框Text3中的ASCII码是Text2中第个字符的ASCII码。组卷：2引用：1难度：0.4
