这是一个可以计算十六进制各位数之和的VB程序，功能如下：在文本框Text1中输入一个十六进制数n，将计算结果显示在Label1上。程序界面如下图所示：实现上述功_刷题宝

题干

这是一个可以计算十六进制各位数之和的VB程序，功能如下：在文本框Text1中输入一个十六进制数n，将计算结果显示在Label1上。程序界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click()
Dim n As String, m as string
Dim s As Integer, i As Integer
n=Text1.Text
n=ucase(n) ’n中的字母转为大写
①
m = Mid(n, i, 1)
If m >= "0" And m <= "9" Then
s = s + Val(m)
ElseIf m>=”A” And m<=”F” Then
s = s + ②
Else
Msgbox(“输入数据有误，请输入一个十六进制数！”)
Exit Sub
End If
Next i
Label2.Caption = "各位数和为：" + Str(s)
End Sub
（1）代码“Private Sub Command1_Click()”中的Command1_Click()是________ （选填：

A．属性名

B．对象名

C．事件处理过程名）；

（2）请在划线处填入合适代码①____________________ ②____________________；
（3）程序运行，在Text1中无论输入“5A0D”，在label1中显示的内容为______________。

上一题下一题 0.99难度填空题更新时间:2019-03-21 11:33:39

答案(点此获取答案解析）

同类题1

下列能表示"x 大于0 且 x 小于10"的Visual Basic表达式是( )

A．x > 0 Or x < 10	B．x >= 0 And x < 10
C．x >= 0 And x <= 10	D．x > 0 And x < 10

同类题2

VB表达式: Sqr(Abs(Int（-8.2）))+ 32 mod 10 \ 3的结果是

同类题3

某信息加密程序，对输入的明文（由英文字母或数字组成的字符串）进行加密，输出加密后得到的密文。
数据加密方法为对明文中的每个字符进行如下处理：
1）将该字符的ASCII码转换成对应的8位二进制；
2）将对应的8位二进制数进行按位取反（1变0，0变1）；
3）将产生的8位二进制数循环左移3次；

4）最后产生的8位二进制数转换成对应的十六进制数。
例如，明文大写字母“A”通过上述算法加密算法加密后生成的密文是“F5”，信息加密过程如图所示。

小李编写了加密算法的VB程序，在文本框Text1中输入明文，单击“生成密文”按钮Command1，程序对明文数据依次进行加密处理，加密后生成的密文显示在文本框Text2中。程序运行界面如下图所示。

（1）如果输入明文为大写字母“F”，则生成的密文是__________。
（2）实现上述功能的VB程序如下。请在划线处填入合适代码。
Function btoh(m As String) As String '将4位二进制数转换成对应的十六进制数
Dim s As Integer, i As Integer
Dim str As String
str = "0123456789ABCDEF"
s = 0
For i = 1 To 4
s = s * 2 + Val(Mid(m, i, 1))
Next i
①___________
End Function
Private Sub Command1_Click()
Dim ans As String, s As String, ch As String, ret As String
Dim i As Integer, asc1 As Integer, n As Integer
s = Text1.Text
ans = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1) '取出第i个字符存入变量ch
asc1 = Asc(ch)
ret = ""
For m = 1 To 8 '完成加密步骤1）和步骤2）
n = (asc1+1) mod 2
ret = n + ret
②___________
Next m
ret = Mid(ret, 4, 5) + Mid(ret, 1, 3) '完成加密步骤3）和步骤4）
s1 = btoh(Mid(ret, 1, 4))
s2 = btoh(Mid(ret, 5, 4))
ans = ans + s1 + s2 '将第i个加密后的字符添加到变量ans的末尾
Next i
Text2.Text = ans
End Sub

同类题4

在VB中，函数Right()的功能是从字串右端开始截取部分字串，那么表达式Right ("morning" , 3)的结果为（）。

同类题5

在VB中，设x=389，能得到其百位数字“3”的正确表达式是_______。

A．Int(x/10)*10

B．Int(x/100)*100

D．x-Int(x/10)*10

相关知识点