高中信息技术vb学考复习题汇编.docxVIP

学考复习--VB [2016.4学考]14.编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。 （1）代码“Private Sub Command1_Click()”中的Click是 。（单选，填字母：A.对象名/B.属性名/C.事件名） （2）为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim i As Integer, n As Integer Dim c1 As String, s1 As String Dim c2 As String, s2 As String Dim c3 As String, s3 As String List1.Clear s1 = 甲乙丙丁戊己庚辛壬癸 s2 = 子丑寅卯辰巳午未申酉戌亥 s3 = 鼠牛虎兔龙蛇马羊猴鸡狗猪 n = Val(Text1.Text) For i = n To ① a = (i + 6) Mod 10 b = (i + 8) Mod 12 c1 = Mid(s1, a + 1, 1) c2 = Mid(s2, b + 1, 1) c3 = Mid(s3, b + 1, 1) List1.AddItem ② + 年 + c1 + c2 + + c3 Next i End Sub （3）由上述算法可知，2024年对应的“天干地支”为 。 [2016.10学考]14.编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。 图a 图b (1)在设计程序界面时，使应使用图b所示“控件工具箱”中的 （填写相应编号）添加“生成”按钮。 （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 = ① Do While i= n a = Int(Rnd * 100) b = Int(Rnd * 100) If ② Then List1.AddItem ( + Str(i) + ) + Str(a) + + + Str(b) + = i = i + 1 End If Loop End Sub （3）运行该程序，在文本框中输入5，单击“生成”按钮后，对语句a = Int(Rnd * 100)执行次数的描述，最合理的是 （单选，填字母：A.执行次数等于5 B.执行次数大于等于5 C.执行次数小于等于5） [2017.4学考]14. 奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。 （1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。 （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 = ① s = Str(a) + s Loop v = t Mod 2 Text2.Text = s Label3.Capti