注册

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

浙江省宁波市北仑中学2018-2019学年高二上学期信息技术期初返校考试试卷

“字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手上的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字符串“1234ABCD”，若把中间的第3个到第5字母抽出并保持原来的顺序放到最前面，则一次洗牌操作后字符串变成“34A12BCD”），也可以把扑克牌分成上下两部分，把下面的部分放置到上面（如字符串“1234ABCD”，把第3个字符到最后一个字符移到前面，变成“34ABCD12”），多次重复做这个动作，就能达到洗牌的目的，效果如图所示。

（1）、若要把窗体的标题名称由“Form1” 改为“字符洗牌”，应改变窗体的属性。

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

Private Sub Command1_Click()

Dim r As Integer, k1 As Integer, k2 As Integer, r As Integer

Dim s As String, n As Integer

'从文本框TxtIn中获取字符串

Randomize

r = Int(Rnd() * 10) + 1 '随机生成洗牌次数

n = Len(s)

Do While r >= 1 '洗牌操作

k1 = Int(Rnd() * (n - 2)) + 2

k2 = Int(Rnd() * (n - k1 + 1)) + k1

s = + Mid(s, 1, k1 - 1) + Mid(s, k2 + 1, n - k2)

r = r - 1

Loop

'输出结果

End Sub

（3）、若加框处的语句改为TxtOut.Text = Str(s)，则运行程序时会发生的错误消息为_________

A、

B、

C、

D、

举一反三

编写VB程序，实现如下功能：在文本框Text1中输入发放红包的总金额s，在文本框Text2中输入发放红包的个数n，单击“分配”按钮（Command1），为n个红包随机分配金额，并在列表框List1中显示分配后的这些金额。界面如图14题-1图所示。

1图

2图

有一个单击按钮过程，其作用是产生50个60~100 的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click()

Dim X, N As Integer

im count As Integer 'count 用来保存能被 6 整除余 2 的数据的个数

Randomize Timer '随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = {#blank#}1{#/blank#}+ int(Rnd * 40) '随机产生 50 个 60~100 的随机数

If X Mod 6 = 2 Then

List1.AddItem Str(X)

{#blank#}2{#/blank#}

End If

Next N

Label1.Caption=str（count）

End Sub

【加试题】某程序功能如下：数组a中存放了n*n个两位随机正整数，按n行n列在列表框List1 中显示（即第一行自左向右依次显示a(1)～a(n)，第二行自左向右依次显示a(n+1) ～a(2*n)，……）。按（行号，列号）的形式在文本框Text1 中输入某矩形区域的左上角位置(x1,y1)，在文本框Text2 中输入右下角位置(x2,y2)，单击“水平翻转”按钮Command1，对以(x1,y1)和(x2,y2)为对角顶点的矩形区域中的数据进行水平翻转，并将变换后的n*n个数据保存到数组b中，最后在列表框list2 中按照List1的格式显示数组b中的数据。程序运行界面如图所示。

某工厂有11个男工人，8个女工人，分别以“abcdefghijk”与“12345678”命名，每天依次排一男一女值班，从第一周周日为a1、周二为b2、······依次循环编排。编写VB程序，实现如下功能：在文本框Text1中输入周次，如第8周，则输入8，单击“周值班表”按钮（Command1），在Label2上（男工人左边标签）显示“第8周”，在列表框List1中输出该周从周日开始的7天及对应的男工人、女工人值班表，运行界面如图所示，程序代码如下：

有如下VB程序段：

Dim i As Integer, s As Integer

Dim a (1 To 10)As Integer

For i =1 To 10

a(i)=i^2

If a(i)Mod 3=0 And a(i)Mod 5 =0 Then s= 50000+ a(i)

If a(i)Mod 3=0 Or a(i) Mod 5 =0 Then s =s+ a(i)

Next i

Text1. Text Str(s)

执行该程序段后，下列说法正确的是（）

将一个十进制正整数转化为二进制数可以采用“除二取余法”，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述“除二取余”操作，直到商的整数部分为零时停止。

程序界面如图所示，在文本框Text1中输入一个正整数，单击“转换”按钮(Command1)后，对应的二进制数在文本框Text2中显示出来。

解决此问题的Visual Basic程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()

Dim x As Integer,s As String,r As Integer,t As Integer

x=Val(Text1.text)

s=“”

Do While ①

r=x Mod 2

s=Str(r)+s

x=②

Loop

Text2.text=s

End Sub

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服