1、VB 综合( 学考部分非选择题 )1. 2017 年 4 月学考题奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为 0，否则校验位值为 1。小李编写了一个计算奇校验位值得 VB 程序，功能如下：在文本框 Text1 中输入 1255 十进制待校验数，单击“计算”按钮 Command1 后，在文本框 Text2 中显示该数对应的二进制值，并在标签 Label3 中显示该数的校验位值。程序运行界面如图所示。（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 Text 属性。（2）实现上述功能的 VB 程序如下，
2、请在划线处填入合适代码。Private Sub Command1_Click()Dim a As Integer, s As StringDim n As Integer, t As Integer, v As Integern = Val(Text1.Text)t = 0s = “Do While n 0a = n Mod 2n = n 2t = t+a s = Str(a) + sLoopv = t Mod 2Text2.Text = sLabel3.Caption = “校验位值：“ + str(1-v) End Sub（3）运行该程序，在文本框 Text1 中输入 22，单击“计算”按
3、钮，则显示的校验位值是 0 。2. 2016 年 10 月学考题编 写“加 法 练 习 题 生 成 器 ”程 序 ， 实 现 如 下 功 能 ： 在 文 本 框 Text1 中 输 入 题 数n， 单 击 “生 成 ”按 钮 Commandl， 在 列 表 框 Listl 中 显 示 n 个 两 数 之 和 小 于 100 的 加 法 练 习 题 。 程 序 运 行 界面 如 图 a 所 示 。图 a 图 b(1)在 设 计 程 序 界 面 时 ， 使 应使用图 b 所 示 “控 件 工 具 箱 ”中 的 3 （ 填 写 相 应 编 号 ） 添 加 “生 成 ”按钮 。（ 2） 实 现 上 述
4、 功 能 的 VB 程 序 如 下 ， 请 在 划 线 处 填 入 合 适 的 代 码 。Private Sub Command1_Click()Dim n As Integer, i As Integer, a As Integer, b As IntegerRandomizen = Val(Text1.Text)i = 1 Do While i= “a“ And a = “A“ And a = “0“ And a = “0“ And c = “A“ And c “ + tEnd Sub（3）由上述算法可知，运行时在 Text1 框中输入“d8” ，列表框 List1 中添加的条目为 。 （
5、单选，填字母：A. d8216/ B. d8输入有误!）5. 编写VB趣味程序“计算厚道指数” ，实现如下功能：在文本框Text1中输入姓名，单击“试一试”按钮Command1，在列表框List1依次求解并显示姓名中的每一个字符的ASCII码，并按程序中给定方式进行运算，得出厚道指数。运行界面如图所示，程序代码如下。（1）为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()Dim s As String，c As StringDim n As Integer，k As Integers = Text1.TextList1.ClearList1.Ad
6、dItem (“开始分解姓名“ + s + “ ,计算内码：“)For i = 1 To Len(s) c=mid(s , i , 1 )k = Asc(c)List1.AddItem (c + “ 十进制ASCII值：“ + Str(k)n = (n + k) Mod 50 Next i n = n + 50 -iLabel2.Caption = Str(n)End Sub（2）程序中的代码“list1.clear ”的“clear”是 。（单选，填字母：A.对象名/B.属性名/C.事件名/ D. 方法名）（3）若在文本框中输入姓名是“jam”这3个字符，点击“试一试”按钮，在label2上
7、显示的“厚道指数”值为 。686. 查找ASCII 码值最小的字符。程序功能如下：在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中输出该字符串中ASCII码值最小的字符，运行界面如下图所示。解决该问题的VB 程序如下：Private Sub Command1_Click()Dim str1 As String 存储输入的字符串Dim n As Integer 存储输入字符串的长度Dim i As Integer, j As Integerstr1 = Text1.Text n = Len(str1)s = Mid(str1, 1, 1) For i = 2
8、 To nIf Mid(str1, i, 1) 0If x = a(i) ThenList1.AddItem Str(a(i) End Ifi = i + 1LoopEnd Sub（1）如要将程序窗口标题“Form1”修改为“天平测质量” ，则应该修改窗体的属性 （选填： Name / Caption / Text / Font） 。（2）为实现上述功能，划线处应填入的代码为 x=x-a(i) 。（3）程序正确运行后，在文本框Text1中输入701，并单击“计算”按钮。程序运行结果应为下图中的 （单选，填：A/B/C） 。A B C8. 日期判断从文本框 Text1 输入一个 8 位数字表示的
9、日期，其中第 1 到 4 位表示年（第 1 位确定不为零） ，第 5 到 6 位表示月，第 7 到 8 位表示日。单击“判断”按钮，判断该日期是否合法，将结果依次输出到列表框 List1。程序界面如下图所示：提示：年份值符合下列两种情况之一的是闰年。1.年份是 4 的倍数，但不是 100 的倍数；2.年份是 400 的倍数。（1）观察程序代码，可知“判断”按钮的对象名为 。 （单选，填字母：A.Text1/B.List1/C.Command1/D.Judge/E.判断）（2）为实现上述功能，请在划线处填入合适的代码。Private Sub Judge_Click()Dim riqi As St
10、ring, st As StringDim year As Integer, month As Integer, day As IntegerDim rn As Boolean, hefa As Booleanriqi = Text1.Textyear = Val(Mid(riqi, 1, 4)month = Val(Mid(riqi, 5, 2)day = Val(mid(riqi,7,2) 或 Val(mid(riqi,7) 第处st = Str(year) + “年“ + Str(month) + “月“ + Str(day) + “日“rn = False 用于判断是否为闰年If ye
11、ar mod 400 =0 Then rn = True 第处If year Mod 4 = 0 And year Mod 100 12 Then hefa = FalseIf day = 0 Then hefa = FalseIf (month = 1 Or month = 3 Or month = 5 Or month = 7 Or 与下一行语句同行month = 8 Or month = 10 Or month = 12) And day 31 Then hefa = FalseIf (month = 4 Or month = 6 Or month = 9 Or month = 11)
12、与下一行语句同行And day 30 Then hefa = FalseIf month=2 And rn=true And day29 Then hefa = False 第处,判断闰年 2 月的天数是否合法If month = 2 And Rn = False And day 28 Then hefa = FalseIf hefa = True Then st = st + “ 合法日期“ Else st = st + “ 非法日期“List1.AddItem stEnd Sub第处代码为 第处代码为 第处代码为 9. 编写 VB 程序代码，实现如下功能：在文本框 Text1 中输入金额(
13、整数)后，点击“转换”按钮 Command1，则在文本框 Text2 中显示该金额的大写，程序运行界面如下图所示:（1）要使窗体标题上显示的文本改为“人民币大小写” ，可在其属性窗口中将 Caption 属性的属性值改为“人民币大小写” 。（2）为了实现以上程序功能，使程序正常运行，请完善以下两处代码。Private Sub Command1_Click()Dim dx As String, dw As String Dim s As String, c As StringDim ch As StringDim i As Integerdx = “零壹贰叁肆伍陆柒捌玖拾“dw = “亿仟佰拾萬
14、仟佰拾元“s = Text1.Text If Len(s) 9 Then Text2.Text = “输入的数据超出所能转换的范围“ElseFor i = 1 To Len(s) ch = Mid(s, i, 1) c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)Next iText2.Text = c + “整“End IfEnd Sub（3）由上述算法可知，若在文本框 Text1 中输入“20” ，则文本框 Text3 显示的结果为 贰拾零元整。10. 现要求编写 VB 程序，界面如第 10 题-1 图所示，程序功能如
15、下：单击开始暂时按钮 Command1，图像控件Image1 中的图片每隔 5 秒更换一张，再次单击 Command1 按钮，停止展示。第 10 题-1 图 第 10 题-2 图（1）为达到每隔 5 秒更换一张图片的效果，应使用第 10 题-2 图所示的空间工具箱中的 3 (填写相应的编号)，并将其 Interval 属性值设置为 5000 。（2）请根据题意讲下列程序补充完整Private Sub Command1_Click ()Dim i As IntegerIf Command1.Caption = “开始展示“ ThenCommand1.Caption = “停止展示“Timer1.Enabled = TureElseCommand1.Caption = “开始展示“Timer1.Enabled = False End IfEnd SubPrivate Sub Timer1_Timer()i = i + 1If i 5 Then i = 1Image1.Picture = LoadPicture(i & “.jpg”)End Sub2413
