- 二一组卷

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

浙江省台州市黄岩第二高级中学2019-2020学年高二下学期信息技术返校考试试卷

编写“二进制加法”程序。

程序运行时，在文本框Text1和文本框Text2分别输入两个二进制数，单击按钮 Command11后在文本框Text3上输出两个二进制相加后的结果。

程序运行如图所示。

（1）、观察代码触发代码执行的事件名是。

（2）、为实现上述功能，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim b1 As String, b2 As String, ans As String, t As String

Dim dist As Integer, jw As Integer

b1=Text1.Text: b2 Text2.Text: ans=""

If dist <0 Then

t=b1: b1=b2: b2=t: dist=-dist

End If

For i=1 To dist

b2="0"+b2

Next i

jw=0

For i= Len（b1）To 1 Step-1

x= Val（Mid（b1, i, 1））+ Val（Mid（b2, i, 1））+jw

ans Str（x Mod 2）+ans

Next i

IfThen ans ="1"+ ans

Text3.Text=ans

End Sub

举一反三

有一种压缩算法，基本原理是：特殊字符+重复次数+字符。
比如有文本字符串：A A A A A B C C C C B C C C，编码后得到：B B 5 A B B 4 C B B 3 C。编码串的最开始说明特殊字符B，以后B后面跟着的数字就表示出重复的次数。编程实现将从Text1输入的一个字符串，点压缩按钮后用上述方法压缩，压缩后的编码在Text2中输出，text3中输入特殊字符。压缩算法：
a)       给压缩串添加开关的特殊字符
b)      逐个判断输入字符串的字符（当前的字符与后一个比较），如果两个字符不同，则连到了压缩串中，如果有连续的重复字符则计数n+1
c)       最后一组重复字符或单个字符再连到压缩串中。
u 连入压缩串方法：单个的直接连入，有重复的连入特殊字符开头+数字+重复的字符

图1
程序如下：
Private Sub Command1_Click()
Dim src As String, t As String   ‘src保存输入的字符串
Dim desc As String       ‘desc保存压缩后的字符串
Dim c As String ‘c保存特殊字符
Dim n As Integer ‘n用来记连续重复字符个数
src = Text1.Text
c = Text3.Text
n = 0
desc =   ①
For i = 1 To      ②
    n = n + 1
    t = Mid(src, i, 1)
    If t <>     ③    Then
         desc = desc & zipstring(n, c, t)
         n = 0
    End If
Next i
Text2.Text = desc & zipstring(n, c,     ④   )
End Sub
Private Function zipstring(n As Integer, c As String, sr As String) As String
         If n <= 1 Then
            zipstring = sr
         Else
            zipstring = c & Trim(Str(n)) & sr
         End If
End Function
① {#blank#}1{#/blank#}
② {#blank#}2{#/blank#}
③ {#blank#}3{#/blank#}
④ {#blank#}4{#/blank#}

下列能作为赋值语句的是（）

某 VB 程序如下：

Dim a(1 To 10) As Integer，b(1 To 10) As Integer

k = 0

For i = 10 To 1 Step -1

Do While b(i) <> 0 k = k + 1

a(k) = i: b(i) = b(i) - 1

Loop

Next i

若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（）

完善以下程序代码。

程序描述：计算两个浮点数a和b的相除的余数，a和b都是正数。这里余数（r）的定义是：a = k * b + r，其中 k是整数， 0 <= r < b。代码如下：

a= ① (input("请输入："))

b= ① (input("请输入："))

k= ②

r= ③

print(r)

下列python表达式结果为5的是( )

在Python中，若a=3，b=2，下列程序段执行后，变量a的值是（）。

a=a-b

a=a*b

相关试卷

公司介绍

服务介绍

帮助中心