- 二一组卷

题型：综合题题类：模拟题难易度：困难

浙江省名校信息技术仿真训练卷（三）

【加试题】在计算机系统中，数值一般用补码来表示和存储，补码由符号位和数值位两部分组成，符号位用0表示正数，用1表示负数。例如，整数n（-128≤n≤127）用8位二进制补码的表示方法为：

①数：正整数补码的数值即其二进制表示。

例：12的8位二进制表示00001100，最高位即符号位“0”表示正数。

②数：除符号位外，所有位取反，然后+1。

例：-5的8位二进制补码表示方法如下，5对应7位二进制数为0000101(原码)，所有位取反后为1111010(反码)，再加1后为1111011(补码)，再设置符号位为1，因此-5用8位二进制补码表示为11111011。

小明设计了一个VB程序，点击“补码”按钮Command1，将文本框Text1中输入的整数n(-128≤n≤127)转换成相应的补码，并在文本框Text2中输出，程序运行界面如图所示，请将画线处的代码补充完整。

Private Sub Command1_Click()

Dim n As Integer，a As Integer，i As Integer

Dim m(1 To 8)As Integer

Text2．Text=" "

n=Val(Text1．Text)

If n>=0 Then

‘计算二进制原码

For i=8 To 2 Step-1

m(i)一n Mod 2

n=n\2

Next i

‘设置符号位

m（1）=0

Else

n=-n

‘计算二进制反码

For i==8 To 2 Step-1

m(i)= ①

n=n\2

Next i

‘加1计算

i=8

Do While m(i)=1

②

i=i-1

Loop

m(i)=1

‘设置符号位

m（1）=1

EndIf

‘输出结果

For i=1 To 8

Text2．Text=Text2．Text & m(i)

Next i

End Sub

（1）、-27用8位二进制补码表示为；

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

① ②

举一反三

在VB集成开发环境中，有三种工作模式，可以单击工具栏上的

按钮，可以{#blank#}1{#/blank#}程序；单击工具栏上的

进入中断模式；单击工具栏上的

按钮结束运行。

绘制函数图象y=x²的VB源代码如下，请补充完整。

Private Sub Command1_Click() '按钮的单击事件

Dim x, y As Single '定义x,y两个变量

Picture1.Scale (-10, 25)-(10, -25) '定义坐标系

Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) '画横坐标轴，颜色为蓝色

Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) '画纵坐标轴，颜色为蓝色

For x = -10 To 10 Step 0.0001 'x值从-10变化到10，每次增量为0.0001

{#blank#}2{#/blank#} '本行代码计算函数y=x²

Picture1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点

Next x '取下一个增量后的x值

End Sub

以上的VB计算机语言是{#blank#}3{#/blank#}语言。（已知计算机语言有：机器语言、汇编语言、高级语言）

某VB程序段如下：

Private Sub Command1_Click()

Dim a As Integer

Dim b As Boolean

a = (a + 1) * 2

b = a - 1

print a:print b

End Sub

程序运行时，单击命令按钮Command1后，变量a和b的值分别是（）

【加试题】筛选法求素数的核心思想是先找最小素数，然后剔除其所有的倍数，在留下的数中再剔除最小素数的倍数，重复执行，直到剔除所有的非素数。

小张编写了一个2查找孪生素数对(差值为 2)的 VB 程序，功能如下：在文本框Text1中输入一个整数n（n≤1000000），单击“求素数对”按钮Command1，在列表框List1中显示2到n范围内的素数，在标签Label2中显示素数个数，在标签Label3中显示孪生素数对个数。程序运行界面如图所示。