- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省嘉兴市第一中学、湖州中学2019-2020学年高二上学期信息技术期中联考试卷

随机生成15个100以内[1,100]的正整数并显示在一个文本框中，再点击交换按钮将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调……）。小叶设计的运行界面和程序代码如下：

Dim a(1 To 15) As Integer

Private Sub Form_Load()

Dim i As Integer, t As Integer

Dim s1 As String, s2 As String

Randomize

s1 = ""

For i = 1 To 15

a(i) = ①

s1 = s1 + Str(a(i))

Next i

Text1.Text = s1

End Sub

Private Sub Com1_Click()

s2 = ""

For i = 1 To 15

s2 = ②

Next i

Text2.Text = s2

End Sub

（1）、要使窗体的标题显示文字“数字交换”，应该更改Form1的属性（A .Name /B .Caption /C .Font /D .Forecolor）。从程序代码可知，此命令按钮的对象名是。

（2）、请在划线处填入合适代码。

① ②

（3）、程序测试运行后生成如下文件：（A .jiaohuan.frm /B .jiaohuan.vbp /C .jiaohuan.vbw /D .jiaohuan.exe）。其中属于windows系统可执行文件是：（单选，填字母）。

举一反三

完全平方数是指一个整数能表示成某个整数的平方的形式，例如4是完全平方数，可以表示成2的平方。下列判断整数型变量a是否为完全平方数的VB表达式不正确的是（）

编写“输出所有子串”程序，实现如下功能:在文本框Text1中输入字符串，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示。

小王为学校教务处编写了一个排考场座位的VB程序。考场采用“6排5列”共30人的模式。程序执行后，考生的考号与姓名显示在列表框List1中，单击“考场座位”按钮Command1，考场号与座位显示在Text1中，程序运行界面如图a所示，考生数据存放在数据库文件“kaochang.accdb”中，数据表如图b所示。

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

VB中双精度型数据占（）个字节。

编写VB趣味程序“计算厚道指数”，实现如下功能：在文本框Text1中输入姓名，单击“试一试”按钮Command1，在列表框List1依次求解并显示姓名中的每一个字符的ASCII码，并按程序中给定方式进行运算，得出厚道指数。运行界面如图所示，程序代码如下。

给出一系列商品的生产时间和价值，现要在规定时间内生产出总价值最大的商品。如有5件商品生产时间和价值如下表所示：

编号	1	2	3	4	5
生产时间	4	7	5	5	9
商品价值	10	16	12	10	15

若生产时间为20，则可生产编号为1、2、5的商品，总价值为10+16+15=41。

编写一个VB程序，实现如下功能：在文本框Text1中依次输入各商品（数量小于等于10件）的生产时间和价值（整数用逗号分隔并以逗号结尾），在文本框Text2中输入总加工时间（至少可以生产一件商品），单击“确定”按钮Command1后，在列表框List1中显示最大的总价值和生产的商品编号。程序运行界面如图所示。

相关试卷

公司介绍

服务介绍

帮助中心