内容发布更新时间 : 2024/6/9 12:24:15星期一 下面是文章的全部内容请认真阅读。
VB综合(学考部分非选择题)
1. [2017年4月学考题]奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。 （1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 Text 属性。 （2）实现上述功能的VB程序如下，请在划线处填入合适代码。 Private Sub Command1_Click() Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer n = Val(Text1.Text) t = 0 s = \
Do While n > 0 a = n Mod 2 n = n \\ 2
t = ① t+a s = Str(a) + s Loop
v = t Mod 2 Text2.Text = s
Label3.Caption = \校验位值：\② str(1-v) End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是 0 。
2. [2016年10月学考题]编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Commandl，在列表框Listl中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。
图a 图b (1)在设计程序界面时，使应使用图b所示“控件工具箱”中的 3 （填写相应编号）添加“生成”按钮。 （2）实现上述功能的VB程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer, b As Integer Randomize
n = Val(Text1.Text) i = ? 1 Do While i<= n
a = Int(Rnd * 100)
b = Int(Rnd * 100)
If ② a+b<100 Then
List1.AddItem \
i = i + 1
End If Loop End Sub
（3）运行该程序，在文本框中输入5，单击“生成”按钮后，对语句a = Int(Rnd * 100)执行次数的描述，最合理的是 B （单选，填字母：A.执行次数等于5 B.执行次数大于等于5 C.执行次数小于等于5）
3. 下面程序的功能是：统计输入信息有多少个英文大写字母、小写字母、数字字符。程序运行时，在文本框Text1中输入信息，单击“确定”按钮后，分别在文本框Text2、Text3、Text4中显示大写字母、小写字母和数字字符的个数。程序运行效果如图所示。
Private Sub Command1_Click() Dim getStr As String Dim a As String
Dim i As Integer，s As Integer Dim q As Integer，l As Integer s=0：q=0：l=0
第3题图
getStr=Text1.Text
For i = 1 To ① ’对字符串中所有字符逐一判断
a = ②
If a >= \If a >= \If a >= \Next i
Text2.Text = Str（s） Text3.Text = Str（q） Text4.Text = Str（l） End Sub
（1）虚线框中的代码属于_________________(选填：枚举/解析)算法
（2）划线①处应填入的语句为： Len(getstr) 或者 Len(Text1.text) ；
划线②处应填入的语句为： Mid(getstr,i,1) 或者 Mid(Text1.text,i,1) 。 （3）运行该程序时，如果在文本框Text1中输入的字符串中包含其他符号，如“？”、“*”， 则 （选填 会/不会）影响输出结果。
4. 编写VB程序，实现如下功能：在文本框Text1中输入十六进制数，单击“转换”按钮Command1，在列表框List1中输出对应的十进制数，运行界面如图所示，程序代码如下。
（1）要调整Label1中的字体大小，可选择在属性面板中设置Label1的 。（单选，填字母：A.Caption / B.Font / C.Height）
（2）为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click()
Dim s As String, c As String, t As String Dim i As Integer, b As Integer, ans As Long Dim flag As Boolean
s = ① Text1.text b = Len(s) flag = True ans = 0
For i = 1 To b c = Mid(s, i, 1)
If c >= \
ans = ans * 16 + Asc(c) - Asc(\ ElseIf c >= \
ans = ans * 16 + ② 10+Asc(c) - Asc(\或 10+Asc(c) - 65 Else
③ flag=False '输入情况有误 Exit For End If Next i
If flag Then t = Str(ans) Else t =\输入有误!\ List1.AddItem s + \End Sub
（3）由上述算法可知，运行时在Text1框中输入“d8”，列表框List1中添加的条目为 。（单选，填字母：A. d8-->216/ B. d8-->输入有误!） 5. 编写VB趣味程序“计算厚道指数”，实现如下功能：在文本框Text1中输入姓名，单击“试一试”按钮Command1，在列表框List1依次求解并显示姓名中的每一个字符的ASCII码，并按程序中给定方式进行运算，得出厚道指数。运行界面如图所示，程序代码如下。
（1）为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim s As String，c As String Dim n As Integer，k As Integer s = Text1.Text List1.Clear
List1.AddItem (\开始分解姓名\计算内码：\For i = 1 To ① Len(s)
c=mid(s , i , 1 )