- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省温州市新力量联盟2018-2019学年高二上学期信息技术期末考试试卷

小王编写了一个进制转换程序，实现如下功能：在文本框Text1中输入一个二进制数，单击“计算”按钮Command1，在文本框Text2中将显示出其对应的十六进制数。程序运行界面如下图所示：

（1）、要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在（单选，填字母：A .Command1_click / B .Text1_click / C .Form_load）事件处理过程中添加语句 Text1.Text= ""

（2）、实现上述功能的 VB 程序如下，请在划线处填入合适的代码

Private Sub Command1_Click（）

Dim s As String, s1 As String, t As Integer, c As Integer

Const code = "0123456789ABCDEF"

s = Text1.Text

t = 0: s1 = ""

For i = Len(s) To 1 Step -1

c = Val(Mid(s, i, 1))

t = t + c * 2 ^ ((Len(s) - i) Mod 4)

If (Len(s) - i + 1) Mod 4 = 0 Or ① Then

②

t = 0

End If

Next i

Text2.Text = s1

End sub

① ②

（3）、如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为

举一反三

程序运行后，单击Command1命令按钮，变量x的值为

Private Sub Command1_Click()

n = 6

x = 1

For i =1 To n

x = x * i

End Sub（）

有如下Ｖisual Basic程序：

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next i

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是（）

小明用VB程序编写了一个密码生成器，单击“生成密码”按钮生成一个8位数的密码，该密码必须同时包含数字、大写字母和小写字母，并在文本框Text1中显示。程序界面如下图所示。

如下程序：

Private Function f(x As Single, n As Integer) As Single

If n ＝0 Then

f ＝1

Else

If n Mod 2 ＝1 Then

f＝x * f(x, n\2)

Else

f＝f(x, n\2) \x

End If

End Function

Private Sub Command1_Click()

Label1.Caption＝Str(f(4, 6))

End Sub

程序运行时，单击按钮Command1，标签Label1显示的内容是（）

删除字符串中的非字母字符，并查找出ASCII码值最大的字母。程序功能如下: 在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text3中显示ASCII码值最大的字母，运行界面如图所示。

在挖金矿小游戏中，玩家通过指令控制小人运动，小人按照一定的规则将地底的金矿全部收集完毕。现将地底的截面可用一个n*n的矩阵表示，其中第一行表示地面，不会出现金矿；第2行至第n行表示地底。每一行中黑色格子表示金矿，白色格子表示空地，其中小人在矩阵左上角第一行第一列的位置。

玩家通过4种指令控制小人运动：

· 左 X：小人向左移动X个格子

· 右 X：小人向右移动X个格子

· 下 X：小人向下移动X个格子

· 挖矿：收集小人所在格子的金矿

小人收集金矿需要遵循一定的规则：

①小人必须将当前行的金矿全部收集，才能去往下一行，即金矿需从上到下收集

②对于同一行的金矿，小人必须按照从左往右的顺序开始收集

现编写程序，以8*8的矩阵为例，在文本框Text1中输入金矿数量，点击按钮“开始”后，随机产生对应数量的金矿并借助图形控件输出（保证不会在同一个格子出现两个金矿），并且在列表框List1中按顺序输出指令，使小人按照规则得到所有金矿。如图a所示。请回答下列问题。

图a

相关试卷

公司介绍

服务介绍

帮助中心