上半年VB8套题.docx

1、上半年VB8套题2015上半年第一套参考代码如下：Private Sub Command1_Click() If Text1.Text = ABC Then MsgBox 登录成功 Else MsgBox 密码错误 End IfEnd SubPrivate Sub Form_Load() Combo1.AddItem 张小三 Combo1.AddItem 李四 Combo1.AddItem 欧阳玉荣End Sub参考代码如下：Option Base 1Dim A(6, 6) As Integer, I As Integer, J As Integer, S As IntegerPrivate

2、Sub C1_Click() S = 0 For I = 1 To 6 For J = 1 To 6 A(I, J) = 0 If I = J Then A(I, J) = 1 If I = J Or I + J = 7 Then S = S + A(I, J) Print A(I, J); ; Next J Print Next I Text1.Text = SEnd SubPrivate Sub C2_Click() Call putdata(kssj.dat, A)End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。2. 单击“工具”菜单的“菜单编辑器”命令，打开

3、“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“视图(&V)”，在“名称”栏中输入菜单项的名称“视图”。4.单击“下一个”按钮，再单击“”按钮，使用与步骤3相似的方法输入下级菜单项“普通”；使用类似的操作，输入如下所示的菜单： 视图(V) 数据处理 普通 计算 退出 Ctrl+X 5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。该模块的功能是：编写程序，求出所有小于或等于100的自然数对。填空的参考答案如下： *question* a = i + j *questi

4、on* If Sqr(a) = Int(Sqr(a) And Sqr(b) = Int(Sqr(b) Then 7. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click() End End SubPrivate Sub 计算_Click() calculate End Sub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。2015上半年第二套参考代码如下：Private Sub Form_Load() 窗体装载过程 Combo1.AddItem + 在组合框中添加+、-号 Combo1.AddItem -E

5、nd SubPrivate Sub Command1_Click() Dim S As Single, A As Single, B As Single 变量s用于保存计算结果 A = Val(Text1.Text) B = Val(Text2.Text) Select Case Combo1.Text Case + S = A + B Case - S = A - B End Select Text3.Text = S 将计算结果显示在文本框text3中End Sub参考代码如下:Dim K As Integer, I As Integer, S As Single, T As Single

6、Private Sub C1_Click() S = 1: K = 1 Do K = K + 2 T = 1 For I = 1 To K T = T * I Next I S = S + 1 / T Loop Until 1 / T 0.000001 Text1.Text = SEnd SubPrivate Sub C2_Click() Call putdata(kssj.dat, S)End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“页面设置(&S)”，在“名称

7、”栏中输入菜单项的名称“页面设置”。4.单击“下一个”按钮，再单击“”按钮，使用与步骤3相似的方法输入下级菜单项“纸张大小”，并在“复选”前打勾；使用类似的操作，输入如下所示的菜单： 页面设置(S) 数据处理 纸张大小 计算 页边距 退出 5. 说明：在“纸张大小”、“页边距”单项的“复选”前打勾。6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。该模块中的calculate过程的功能是：根据泰勒级数计算e=1+1/1!+1/2!+1/3!+，当第i项的值小于10-5时结束。填空的参考答案如下： *question* f = f + y *ques

8、tion* Loop Until y = A And c = Z Then sum = sum + 1 End If Next i Text2.Text = Str(sum)End SubPrivate Sub C3_Click() Call putdata(kssj.dat, sum)End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“播放(&P)”，在“名称”栏中输入菜单项的名称“播放”。4. 单击“下一个”按钮，再单击“”按钮，使用与步骤3相似的方法输入下级菜单

9、项“打开”；使用类似的操作，输入如下所示的菜单： 播放(P) 数据处理 打开 计算 退出 Ctrl+X 5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。该模块的功能是：在窗体上打印金字塔图形。填空的参考答案如下： *question* menu1.Print Chr( 64 + j ) ; *question* For j = i - 1 To 1 Step -1 7. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click() End End SubPr

10、ivate Sub 计算_Click() calculate End Sub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。2015上半年第四套参考代码如下:Private Sub Combo1_Click() Text1.FontName = Combo1.TextEnd SubPrivate Sub Form_Load() Combo1.AddItem 宋体 Combo1.AddItem 黑体 Combo1.ListIndex = 0End SubPrivate Sub Option1_Click() Text1.ForeC

11、olor = vbRedEnd SubPrivate Sub Option2_Click() Text1.ForeColor = vbBlueEnd Sub排序的方法有多种，下面给出冒泡排序的算法，其它排序算法请参考有关书籍。参考代码如下:Private Sub Command1_Click() Dim i As Integer getdata 调用Getdata过程，读取数据 For i = 1 To 50 将数组中的数据添加到List1中 List1.AddItem A(i) Next iEnd SubPrivate Sub Command2_Click() 以下为冒泡排序算法 Dim i

12、 As Integer, j As Integer For i = 1 To 50 For j = 1 To 50 - i If A(j) z And y + z x And x + z y Then *question* area = Tria(x, y, z) 7. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click() End End SubPrivate Sub 计算_Click() calculate End Sub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。2015上半年第五套参考代码如下:

13、Private Sub Command1_Click()If Command1.Caption = 开始 Then Timer1.Enabled = True Command1.Caption = 暂停Else Timer1.Enabled = False Command1.Caption = 开始End IfEnd SubPrivate Sub Timer1_Timer() Text1.Text = Time()End Sub参考代码如下:Private Sub Command1_Click() Dim F(30) As Long Dim i As Integer Cls F(1) = 1:

14、 F(2) = 1 For i = 3 To 30 计算数列的3至30项 F(i) = F(i - 2) + F(i - 1) Next i For i = 1 To 30 Print F(i); If i Mod 5 = 0 Then Print 每打印5个数后换行 Next i Text1.Text = F(30)End SubPrivate Sub Command2_Click() putdata kssj.dat, Text1.Text 调用putdata把第30项写入文件End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。2. 单击“工具”菜单的“菜单编辑器”

15、命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“插入(&C)”，在“名称”栏中输入菜单项的名称“插入”。4. 单击“下一个”按钮，再单击“”按钮，使用与步骤3相似的方法输入下级菜单项“对象”；使用类似的操作，输入如下所示的菜单： 插入(C) 数据处理 对象 计算 退出 Ctrl+X 5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。该模块的功能是：调用判别素数的函数将100120之间的偶数拆分成两个素数之和。填空的参考答案如下： *question* For

16、 n = 100 To 120 Step 2 *question* If x Mod i = 0 Then 7. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click() End End SubPrivate Sub 计算_Click() calculate End Sub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。2015上半年第六套参考代码如下:Private Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Chang

17、e() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() Image1.Picture = LoadPicture(File1.Path & & File1.FileName)End Sub算法要点：1、数制转换：相应的系数乘权值相加。2、判断是否为八进制数：看输入的字符是否为“07”参考程序如下：Private Sub Command1_Click() Dim s As Integer, n As Integer, i As Integer n = Len(Text1.Text) s = 0 For i = n To 1 Ste

18、p -1 s = s + Val(Mid(Text1.Text, i, 1) * 8 (n - i) Next i Text2.Text = sEnd SubPrivate Sub Command2_Click() Putdata kssj.dat, Text2.TextEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If (Chr(KeyAscii) 7) Then MsgBox 错误！输入内容非八进制数 KeyAscii = 0 End IfEnd Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。2. 单击“

19、工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“插入(&C)”，在“名称”栏中输入菜单项的名称“插入”。4. 单击“下一个”按钮，再单击“”按钮，使用与步骤3相似的方法输入下级菜单项“引用”；使用类似的操作，输入如下所示的菜单： 插入(C) 数据处理 引用 计算 退出 Ctrl+X 5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。该模块的功能是：找出10009999中满足倒序后得到的数字是原数字倍数的数。填空的参考答案如下： *q

20、uestion* m = m * 10 + n Mod 10 *question* If m Mod i = 0 And m i 1 Then 7. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click() End End SubPrivate Sub 计算_Click() calculate End Sub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。2015上半年第七套参考代码如下:Private Sub Command1_Click()Dim x As Integer, i As IntegerLis

21、t1.Clearx = Val(Text1.Text)For i = 1 To x If i Mod 2 = 0 Then List1.AddItem i End IfNext iEnd Sub参考代码如下：Private Sub Command1_Click()For i = 100 To 150If i Mod 4 = 2 And i Mod 5 = 3 And i Mod 6 = 0 Then根据题意求小球数除4余2、除5余3，并且能被6整除Text1.Text = iEnd IfNext iEnd SubPrivate Sub Command2_Click()Call putdata(

22、kssj.dat, Text1.Text)End Sub操作步骤如下：1. 打开考生文件夹中的工程Menu1.Vbp。2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“插入(&C)”，在“名称”栏中输入菜单项的名称“插入”。4. 单击“下一个”按钮，再单击“”按钮，使用与步骤3相似的方法输入下级菜单项“文件”；使用类似的操作，输入如下所示的菜单： 插入(C) 数据处理 文件 计算 退出 Ctrl+X 5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK

23、.Bas”文件添加到本工程。该模块的功能是：使55数组的主、副对角线元素为1，其余为0。填空的参考答案如下： *question* If i = j Or i + j = 4 Then *question* a(i, j) = 0 7. 添加如下所示的菜单事件过程代码：Private Sub 退出_Click() End End SubPrivate Sub 计算_Click() calculate End Sub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。2015上半年第八套参考代码如下:Dim n As IntegerP

24、rivate Sub Command1_Click() n = Int(Rnd * 90 + 10) Text1.Text = nEnd SubPrivate Sub Command2_Click() If Sqr(n) = Int(Sqr(n) Then Label2.Caption = n & 的平方根是整数 Else Label2.Caption = n & 的平方根不是整数 End IfEnd SubPrivate Sub Form_Load() RandomizeEnd Sub参考代码如下：Dim a As Integer, b As Integer, min As IntegerD

25、im ma As Integer, mb As Integer, r As IntegerPrivate Sub C1_Click() min = 19 For a = 0 To 135 / 19 For b = 0 To 135 / 23 r = 135 - a * 19 - b * 23 If r = 0 Then min = r ma = a mb = b End If Next b Next a Text1.Text = ma Text2.Text = mbEnd SubPrivate Sub C2_Click() putdata kssj.dat, ma, mbEnd Subputdata过程的作用是打开指定的文件，进行写操作。该过程有3个参数，一个是欲打开的文件名，另外两个是要保存的数据。这里按题目要求，指定的文件名是kssj.dat，需要保存的数据是存放了19米和23米根数的两个变量m