1.选择题- (共15题)
1.
“优先点菜”是一款集点菜、支付、分享于一体的手机应用软件,我们可以通过优先手机客户端查看到当地优质品牌餐饮门店及图文菜单,并预先点菜、支付,避免了餐前点菜、餐后结账时等候的麻烦.小利使用该APP事先点好菜的过程属于( )
A.信息的采集 | B.信息的发布 | C.信息的加工 | D.信息的存储 |
2.
小丽用UltraEdit软件观察"新高考‘7选3’"这几个字,显示的十六进制内码如图所示。则"7选4"这几个字对应得内码用十六进制表示是( )


A.37 D1 A1 34 | B.D1 A1 33 A1 AF |
C.37 D1 A1 33 | D.D1 A1 33 A1 B0 |
4.
字符“A”比“a”的ASCII码值小32(十进制),已知字符“n”的二进制ASCII码值为(1101110)2,则字符“P”的十进制ASCII码值是( )
A.80 | B.90 | C.77 | D.74 |
5.
如下VB程序段
x=Text1.Text
p=0
For i=1 to Len(x)
If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是( )
x=Text1.Text
p=0
For i=1 to Len(x)
If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是( )
A.0 | B.1 | C.2 | D.11 |
6.
数学表达式“2n-1>0且2n-1≠1”对应的Visual Basic表达式是( )
A.2·n-1>0 And 2·n-1<>1 | B.2*n>1 And Not(2*n-1=1) |
C.2n-1>0 And 2n-1 ≠ 1 | D.2*n-1>0 And 2n-1<>1 |
7.
下列有关算法的描述,正确的是( )
A.一个完整的算法必须有输出 |
B.一个完整的算法至少有一个输入 |
C.算法只能采用自然语言或流程图这两种方式表示 |
D.用流程图方式表示算法的好处就是形象直观,但容易产生歧义 |
10.
模拟抛硬币并统计概率,程序运行结果和设计界面如右图,该程序界面上至少有 等控件对象( )


A.一个按钮、二个文本框 |
B.一个按钮、二个文本框、三个标签 |
C.一个按钮、二个列表框、二个标签 |
D.一个按钮、一个文本框、一个列表框、二个标签 |
11.
模拟剪刀石头布的游戏,用1~3这3个数分别代表剪刀、石头、布这三种情况,使用Rnd随机函数可以表示为( )
A.Int(Rnd(3)+1) | B.Int(Rnd*2+1) | C.Int(Rnd(2)+1) | D.Int(Rnd*3+1) |
13.
在Visual Basic程序中,设x=389,能得到其百位数字“3”的表达式是( )
A.Int(x/10)*10 | B.Int(x/100)*100 | C.x-Int(x/10)*10 | D.Int(x/100) |
14.
在Visual Basic中,若x表示能被5整除的正整数,则下列逻辑表达式的值一定为真的是( )
A.x / 5=0 | B.x Mod 5=0 | C.Int(x\5)=0 | D.5 Mod x=0 |
15.
在VB中编制一个含有一个窗体的VB应用程序并保存在磁盘上,运行测试后编译成可执行程序,整个过程中肯定会产生的文件类型是( )
A..vbp、.frm、.exe | B..vbp、.exe、.txt |
C..txt、.frm、.exe | D..vbp、.txt、.frm |
2.填空题- (共3题)
16.
下列VB程序用来实现[1,10]之间奇数之和,单击Command1后,标签Label1中显示的内容是_____,循环变量j最终的值是___________ ,并完成程序一处空白。
Private Sub Command1_Click()
Dim s As Integer,j As Integer
s=0
For j=1 To 10
If j Mod 2 <> 0 Then
_____________
End If
Next j
Label1.Caption=Str(s)
End Sub
Private Sub Command1_Click()
Dim s As Integer,j As Integer
s=0
For j=1 To 10
If j Mod 2 <> 0 Then
_____________
End If
Next j
Label1.Caption=Str(s)
End Sub
17.
小张的QQ密码忘记了,请你帮他找回密码。他只记得自己密码的一些零星信息:
①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如图所示,单击“找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。

(1)应用程序界面设计时,为添加“可能的密码有:”对象,应使用左图所示的“控件工具箱”中的______(填写相应编号),并在右图所示的“属性窗口”中,将______属性值设置为“可能的密码有:”。

(2)为实现上述功能,请在划线处填入合适的选项。
Private Sub Command1_Click( )
Dim x As Integer,s As Long,y As Integer,i As Integer
For i=0 To 9999
s=590000+i
If________①Then
x=s mod 10
y=(s Mod 100)\10
If_______②Then
List1.AddItem______③
End If
End If
Next i
End Sub
划线①、②、 ③的选项:
①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如图所示,单击“找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。

(1)应用程序界面设计时,为添加“可能的密码有:”对象,应使用左图所示的“控件工具箱”中的______(填写相应编号),并在右图所示的“属性窗口”中,将______属性值设置为“可能的密码有:”。

(2)为实现上述功能,请在划线处填入合适的选项。
Private Sub Command1_Click( )
Dim x As Integer,s As Long,y As Integer,i As Integer
For i=0 To 9999
s=590000+i
If________①Then
x=s mod 10
y=(s Mod 100)\10
If_______②Then
List1.AddItem______③
End If
End If
Next i
End Sub
划线①、②、 ③的选项:
A.x=y |
B.Str(s) |
C.Str(i) |
D.s Mod 12=0 and s Mod 38=0 |
18.
Private Sub Command1_Click()
Const x=“转换成八进制数为”
Dim y As Integer ‘用于存储输入的十进制自然数
Dim s As String ‘用于存储转换后的结果
Dim r As Integer
y=Val(Text1.Text)
s=“”
Do While y<>0 ‘采用除八取余法
r=y Mod 8
s=Str(r)+s
y=y\8
Loop
Label1.Caption=Text1.Text+x
Text2.Text=s
End Sub
单击“开始”按钮Command1后,标签Label1中显示的内容是_________,文本框Text2中显示的内容是_______。
运行下列VB程序,在文本框Text1中输入15,界面如图所示。

Private Sub Command1_Click()
Const x=“转换成八进制数为”
Dim y As Integer ‘用于存储输入的十进制自然数
Dim s As String ‘用于存储转换后的结果
Dim r As Integer
y=Val(Text1.Text)
s=“”
Do While y<>0 ‘采用除八取余法
r=y Mod 8
s=Str(r)+s
y=y\8
Loop
Label1.Caption=Text1.Text+x
Text2.Text=s
End Sub
单击“开始”按钮Command1后,标签Label1中显示的内容是_________,文本框Text2中显示的内容是_______。
试卷分析
-
【1】题量占比
选择题:(15道)
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:18