[填空题]

在计算机中用一个字节(8位),来存储一个字符的Ascii码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为”0”,在数据传输时可用作奇偶校验位，传输时Ascii代码转换成传输码的方法是:若7位Ascii码有偶数个1，最高位为1，有奇数个1，则最高位为0，例如字母”A”的Ascii码十进制表示为65,二进制表示为00100001。”A”的传输码则为”1010 0001”,本程序的功能就是把Ascii码转换成这种传输码

Option Explicit

Private Sub Commandl_Click（　）




Dim i As Integer，S As String

Dim str As String，ch As String

str=Text1.text

For i=1 To Len(str)

（）

Call convert(ch，s)

List1.AddItem ch & "==>" & S

Next i

End Sub

Private Sub convert(ch As String，S As String)

Dim m As Integer,k As Integer,n As Integer,i As Integer

s= （）

n=Asc(ch)

Do While n>0

（）




S=m & S

If m=1 Then

k=k+1

End If

n=n/2

最新试题

• ●    属于有机磷农药中毒毒簟碱样症状的表现有（）
• ●    [判断题]电动多功能钳可不接驳外接动力源、油管、电缆。( )
• ●    [判断题]4号线BOM（半自动售票机）的维护工作分为计划检修、故障检修、应急抢修、保养维护四种类型。
• ●    [判断题]( ) 在市区或人口稠密的地区进行带电作业时,工作现场应设置围栏,严禁非工作人员入内。
• ●    [单选题]搬运时应使伤员平躺在担架上，（）束在担架上，防止跌下。
• ●    某甲因为故意伤害某乙，造成某乙轻微伤，人民法院认为对某甲应该判处拘役，则( )。