VB实验教材模拟练习(有答案)

合集下载

VB实验指导书_理论综合练习题_答案(完结版).doc

第二部分综合练习理论练习一一单选1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA二多选1 ABCE 2CE 3 BCE 4 ADE 5 ABCD6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE三判断1-5 X V X V V6-10 V X V V V四填空1 x=int(Rnd*101)End If avg=s/82 i=l to 10Right(str(i),l)或Right(str(i mod 10))3 m*n/GCD(m,n)GCD(b, a mod b)4 Exit For i & “是素数”Next i五阅读程序1-4 DDCB六程序设计1Option Base 1Private Sub Form_click()Dim a( 10)Ciscreatedata a()sort a()Fori= ITo 10Print a(i);Next iEnd SubSub createdata(a())Fori = ITo 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9Forj = 1 To 10-iIf a(j) > a(j + l)Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd Sub2Private Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load()Open "c:\ksxx.dat" For Random As#l Len = Len(student)End SubPrivate Sub cmdadd_Click()student.no = Text 1.Textstudent.Bscj = Val(Text2.Text)student.Sjcj = Vai (Tex t3.Text)lastrecord = LOF( 1) / Len(student) + 1Put # 1, lastrecord, studentTextl.Text =Text2.Text = ””Text3.Text ="End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub1-5 CABCD理论练习二6-10 ABCCD 11-15 BBBAB1 CD2 AD3CE4BC6BCDE7CDE8ABCDE9 ABD三判断二多选1-5 X X X X V 6-10 V V V X X 16-20 DBAAC5 AD10ACDE1n-l 或者Sqr (n)02X y3 1 to 102*i-14Button=2start=True 五阅读程序1-5DBDAB六程序设计1Private Sub Form_click()四填空japan = 47528china = 22257n = 0 True — (x, y)Do While china <= japanchina = china * 1.098japan = japan * 1.028 n= n + 1LoopPrint n & ”年之后，中国GDP将超过日本”End Sub•VB6中的Split函数，其功能足将一字符巾用分界符分割为一字符串数组。

VB练习题(含答案)

VB简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。

2 简要回答创建MDI应用程序的步骤。

3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数，功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。

5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。

17 叙述VB集成开发环境的组成。

18 叙述文件访间的类型。

19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。

26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。

30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。

34 请写出If语句的块语法格式。

35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。

37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案：1．简述Timer控件中Interval属性和Enanbeled属性答：Timer控件中的Enanbeled设置或返回计时器控件的有效性，该属性值为布尔值，如果设置为True，则每经过指定的时间间隔将触发Timer事件，为False，计时器控件成为无效，停止工作。

vb练习题及答案

vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。

为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。

练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。

要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。

解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。

要求用户输入学生的姓名和成绩，然后将其保存到数组中。

用户可以通过输入姓名来查询学生的成绩。

解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。

vb练习及答案版

一、单选题1. 一个完整的计算机系统应包括（ B ）。

(A)主机、键盘、显示器(B) 硬件系统和软件系统(C) 主机和其他外部设备 (D) 系统软件和应用软件2．我们通常说的“U盘”属于计算机部件中的（ C ）。

(A) 输出设备 (B) 输入设备(C) 存储设备 (D) 打印设备3.在下列存储器中，存储速度最快的是( D )。

(A)软盘 (B)硬盘 (C)光盘(D)内存4. 计算机中采用二进制，是因为（ D ）。

(A)可降低硬件成本(B)两个状态的系统具有稳定性(C)二进制的运算法则简单(D)上述三个原因5. 是Internet中的( B )。

(A) 硬件编号(B) 域名 (C) 密码 (D) 软件编号6. 下列设备中，（D ）不能作为计算机的输出设备（A）打印机（B）显示器（C）绘图仪（D）键盘[标准的输入设备]7. 计算机的主机由（B ）部件组成[主机箱内硬件的总称]（A）CPU、外存储器、外部设备（B）主机板，CPU和内存储器（C）CPU和存储器系统（D）主机箱、键盘、显示器8. 在Word中将文档中一部分文本内容复制到别处，首先要进行的操作是（ C ）（A）粘贴（B）复制（C）选择（D）剪切9. Windows系统中，回收站的功能是（B ）（A）浏览上网的计算机（B）存放删除文件（C）设置计算机参数（D）收发信件10. 关于电子邮件的叙述正确的是（C ）（A）电子邮件只能传输文本（B）电子邮件只能传输文本和图片（C）电子邮件可以传输文本、图片、视像、程序等（D）电子邮件不能传输图片11. 下列关于电子邮件的说法，正确的是（C ）（A）收件人必须有E_mail账号，发件人可以没有E_mail账号（B）发件人必须有E_mail账号，收件人可以没有E_mail账号（C）发件人和收件人均必须有E_mail账号（D）发件人必须知道收件人的邮政编码12.下列有关Word的叙述，正确的是（B ）（A）Word是一个应用软件，它只能对文字进行编辑处理（B）Word是在Windows环境下运行的应用软件（C）文档的缺省扩展名是.wrd（D）在Word中，一次只能打开一个文档13. 计算机当前的应用领域广泛，但据统计其应用最广泛的领域是（A ）（A）数据处理（B）科学计算（C）辅助设计（D）过程控制14. 在计算机的内部所处理的任何信息均是采用（B ）。

计算机vb语言模拟试题一含答案

模拟试题一一、单选题1. VB6.0是一种面向的编程环境。

(A) 机器(B) 对象欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。

愿同学们健康快乐的成长。

早日为祖国的繁荣昌盛奉献自己的力量(C) 过程(D) 应用2. 以下关于窗体的Name属性的叙述正确的是。

欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。

愿同学们健康快乐的成长。

早日为祖国的繁荣昌盛奉献自己的力量(A) 窗体的Name属性可以为空(B) 窗体的Name属性是显示在窗体标题栏中的文本(C) 可以在运行期间改变窗体的Name属性欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。

愿同学们健康快乐的成长。

早日为祖国的繁荣昌盛奉献自己的力量(D) 窗体的Name属性指定窗体的名称，用来标识一个窗体3. 若要使命令按钮不可操作，要对属性进行设置。

(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过事件获得输入键值的ASCII码。

(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面是合法的变量名。

(A) pi (B)π(C) print (D) a+k6. 表达式Int(10*Rnd)产生的随机数的范围是。

(A) [1,9] (B) [1,10](C) [0,10] (D) [0,9]7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是。

(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是。

(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 当VB执行下面语句后，变量a的值为。

VB实验教材的实验、习题答案

第一章VB开发环境与VB概述习题答案习题一、选择题第二章常用控件与界面设计习题答案习题一、选择题第三章实验与习题实验实验3_1…算术运算Private Sub Command1_Click()Const a As Single = 3, b As Single = 2, c As Single = -1, d As Single = 6Dim x As Single, y As Single, z As Single, m As Singlex = 2: y = 1: z = 1: m = 1List1.ClearList1.AddItem a / (b + c / b)List1.AddItem (x + Sqr(x ^ 2 + 1)) ^ (1 / 3)List1.AddItem ((2 * y) / (a * x + b * y) * (a * x - b * y))List1.AddItem 1 + 1 / (1 + 1 / m)List1.AddItem 1 / 2 * (d / 3) ^ (2 * x)List1.AddItem Log(y + Cos(x) ^ 2)List1.AddItem Abs((Exp(x) + Sin(x) ^ 3) / (x + y))List1.AddItem Log((Exp(x * y) + Abs(1 / Tan(z) + Cos(x) ^ 3)) / (x + y - z))List1.AddItem Sin(45 * 3.1415 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1) List1.AddItem Log(a) / Log(b)End Sub…关系运算Private Sub Command2_Click()List1.ClearList1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12) List1.AddItem "ABCRG" >= "abcde"List1.AddItem Int(134.69) >= CInt(134.9)List1.AddItem 78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98List1.AddItem Str(32.345) = CStr(32.345)End Sub…逻辑运算Private Sub Command3_Click()Dim x As Integer, y As IntegerDim C1 As Integer, C2 As Integer, C3 As IntegerC1 = 70: C2 = 80: C3 = 90x = 9: y = -2List1.ClearList1.AddItem x + y < 10 And x - y > 0List1.AddItem (x% >= 0 And y% >= 0) Or (x% < 0 And y% < 0)List1.AddItem x = 0 Xor y = 0List1.AddItem C1 + C2 + C3 >= 255 Or C1 > 90 And C2 > 90 And C3 > 80End Sub实验3_2略实验3_3略实验3_4…零售结算Private Sub Command1_Click()Dim dj As Single, sl As Single, je As Single, n As IntegerLabel1.Caption = "金额："dj = InputBox("请输入商品的单价：", "单价框")sl = InputBox("请输入商品的数量：", "数量框", 1)je = dj * sln = MsgBox("共计金额=" & je, vbOKCancel + vbInformation, "结果") If n = vbOK Then Label1.Caption = "金额：" & Str(je) & "元"End Sub…产生随机数Private Sub Command2_Click()Dim m As Integer, n As IntegerDim x1 As Integer, x2 As Integer, x3 As Integerm = V al(Text1.Text): n = Text2.TextRandomizex1 = Int(Rnd * (n - m + 1) + m)x2 = Int(Rnd * (n - m + 1) + m)x3 = Int(Rnd * (n - m + 1) + m)Label4.Caption = "结果为：" & Str(x1) & Str(x2) & Str(x3)End Sub…求逆序数Private Sub Command3_Click()Dim a As Integer, h As Integer, t As Integer, n As IntegerRandomizea = Int(Rnd * (999 - 100 + 1) + 100)h = Mid(CStr(a), 1, 1)t = Mid(CStr(a), 2, 1)n = Right(CStr(a), 1)Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000")End Sub实验3_5略习题选择题填空题1、2 -32768~327672、整型长整型单精度双精度3、0 False “”4、Chr(Int(Rnd*(Asc(“L”)-Asc(“C”))+Asc(“C”)))x>0 And y>0 Or x<0 And y<0c>=”a” And c<=”z” Or c>=”A” And c<=”Z”x>=10 And x<20x<z Xor y<z5、False2TrueFalseTrueTrueTrueTrue6、18820010068.568765547、a=1 b=1a=2 b=1a=3 b=1a=4 b=18、Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400 =09、He Said, “Good morning”.10、EDEF11、(A>0 And A<>Int(A)) And (B<0 And B<>Int(B))12、a+b+c+d(a+b+c+d)/4sumaver13、(f-2*h)/2(4*h-f)/2简答题1、略2、Private Sub Form_Click()Const g = 9.8Dim V0 As Single, t As SingleDim S As SingleV0 = InputBox("请输入V0的值：")t = InputBox("请输入时间t的值：")S = (1 / 2) * g * t ^ 2 + V0 * tMsgBox ("位移量为：" & S)End Sub3、Private Sub Command1_Click()Dim l As Single, w As Single, h As SingleDim s As Singlel = Text1.Textw = Text2.Texth = Text3.Texts = (l * w + l * h + w * h) * 2Label1.Caption = sEnd Sub第四章选择分支与循环实验答案实验4-1方法一：x<=5 ; y方法二：Is<=2 ;Case Else实验4-2Shape1.BackColor=vbRed;Inter=15;Inter=Inter-1;Inter;实验4-3b<cb=aa=k实验4-4方法二：s*n ; t/s<10^-5实验4-5方法一:m>=10^-4 ; (-1)^(n+1)*m实验4-6x2=x3 ; <10^-6实验4-7实验4-8i+2*j+5*k=10 ; n实验4-9题目一：a) 5b)i=16 p=12 n=5c)i=9 p=8 n=1题目二：120 10实验4-10N=1 ；S=N& "*3 " & "+1 "实验4-11Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St实验4-12i\100 ; (i Mod 100)\10习题一、选择题二、填空题1．Is=0 ; 1 To 10 ; Is >102. 93. 3 ; 4 154. this is a book ;This Is A Book5. 3 ; 3 ; 3 56. 32 07. 48. 15 19. 1 ; 401 ;10410. 1 2 3 ;1 3; 111. (3)12. 2 0 2413. 10 1414. BAABC CBAABC15. X Mod P=0 ; X=X+1 ;Find=False16. abs(t)<10^(-7) ; s+t17. Mid(n,1,1)=Mid(n,2,1) And Mid(n,3,1)=Mid(n,4,1)S=S+118. Mid(n,i,1)>Mid(n,i+1,1)19. "输入n";N/I=0 ;Print I第五章数组实验5_1Int(90 * Rnd) + 10a(i) = a(21 - i)a(21 - i) = t5_2k = x Mod 10i = i + 15_3s5_4max < a(i, j)row = Icol = j5_51ReDim Preserve prime(m)prime(j)5_6d Mod 25_7Exit Fora(j + 1) = a(j)5_8N – IA(j) = A(j + 1)5_9A(i, 1)JMin = MaxNot Flag5_10ch >= "0" And ch <= "9"P = P & chReDim Preserve C(k)5_11Private Sub Form_Click()Dim x As Integer, i As Integer, k As Integer, j As Integer Dim a() As Integerx = InputBox("输入正整数x=")i = 2Print x; "的质因子为:";Do While x >= iIf x Mod i = 0 Thenk = k + 1ReDim Preserve a(k)a(k) = ix = x \ iElsei = i + 1End IfLoopFor j = 1 To UBound(a)Print a(j);Next jEnd Sub习题一选择题二填空题1.V ariant2.ReDim A(N)A(1)If M < A(I) Then M = A(I)3.Int(26 * Rnd) + 65Chr(t)i + 1 To 10A(i) > A(j)4.InStr(s, ",")Right(s, Len(s) - n)s5. 4 5 66 5 43 2 16.T – 1I + 17.k = 6 - i – jmax = m8.j = aj = j - 39.i + 1i = i + 110. 237三编程题1．Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数"End IfEnd Sub2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("ÊäÈëm")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IFor I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As Integer, K As IntegerDim a() As Integer, n As Integer, p As IntegerDim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopI = I + 1LoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As IntegerA(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = B(J) Then Exit ForNext JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10For J = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IText3.Text = SEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = V al(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) ThenList1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub第六章参考答案实验实验6-11、Exit Do2、Y(X)3、X >= -1实验6-2【题目二】42 、26、8实验6-31、s1, key2、s As String3、ch >= "a" And ch <= "z"4、Mid(s, i, 1) = Chr(Asc(ch) + k - 26)思考：解密函数Private Sub dec(s As String, k As Integer) '解密过程Dim i As Integer, ch As String * 1For i = 1 To Len(s)ch = Mid(s, i, 1)If "A" <= ch And ch <= "Z" ThenIf Asc(ch) - k < Asc("A") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于A的ASCII值则加上26 ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfElseIf ch >= "a" And ch <= "z" Then '多分支格式，ch介于小写a与z之间If Asc(ch) - k < Asc("a") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于a的ASCII值则加上26ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfEnd IfNext iEnd Sub实验6-41、b() As Integer, st As String2、L <= R3、ReDim Preserve b(R)4、L = L + 1辗转相除法求最大公约数函数Private Function Gcd(ByV al p As Integer, ByV al q As Integer) As IntegerDim r As Integerr = p Mod qDo While r <> 0p = qq = rr = p Mod qLoopGcd = qEnd Function实验6-5【题目一】age = age(n - 1) - 3【题目二】1、(Left + Right) / 22、Left = Mid + 1实验6-61、3 -12、7 43、3 -14、7 0实验6-7【题目一】1、Sqr(2 + t)2、Abs(a - 1) < eps【题目二】1、Dim X As Integer2、"S(" & I & ")=" & S(I)3、(j * i + 1)习题参考答案一选择题二、填空1（1）形式、（2）实在2（1）按地址传递、（2）ByV al3（1）窗体模块、（2）标准模块、（3）类模块4（1） 65（1）4 20 1016（1） 6 26 、（2）-2 987（1）10 6 、（2） 5 -58（1） 6 5 、（2）8 79（1）11 、（2）710（1）Fun(i) 、（2）Fun=p11（1） 4 、（2）20.712（1）29 、（2）28.713（1）k = j 、（2）b() As Integer14（1）gec 、（2）ge 、（3） 315（1）p1 = True And p2 = True 或p1 And p2 、（2）p1 = p2 – 2 、（3）Isp = True 、（4）m Mod i = 016（1）Convert(st) 、（2）Len(s) 、（3）"A" To "F" 、（4）k = k + p * h17（1）isualVi 、（2）sualV isu18（1）s + a 、（2）n + 1 、（3）x As Single, n As Integer 、（4）p * (x + i) / ((2 * i - 1) * i * x) 三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As BooleanDim K As IntegerReDim A(1)A(1) = 50————————'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean)Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As IntegerDim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLf End IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As IntegerFor I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByV al idx As IntegerDim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取"Exit ForEnd IfNext IEnd Sub5、Option ExplicitPrivate Sub Form_Click()Dim S As String, Flg As BooleanDoS = InputBox("输入一个自然数")If S = "" Or Not IsNumeric(S) ThenMsgBox "请重新输入", 48 + vbOKOnlyElseExit DoEnd IfLoopjudge(S, Flg) ' Call judge(S, Flg) 或judge S, Flg If Flg ThenPrint S; "是回文数"ElsePrint S; "不是回文数"End IfEnd SubPrivate Sub judge(Ch As String, F As Boolean)Dim L As Integer, I As IntegerL = Len(Ch)F = True ' F = FalseFor I = 1 To LIf Mid$(Ch, I, 1) <> Mid$(Ch, L + 1 - I, 1) Then Exit Sub Next IF = False ' F = TrueEnd Sub四、编程题1、编程验证任一大于2的偶数可以表示成两个素数之和。

VB实验教材模拟练习(有答案)报告

模拟练习一第一部分计算机信息技术基础知识选择题（共20分，每题2分）1．IP地址通常分为固定IP地址和动态IP地址，目前国内大多数家庭上Internet网的用户的IP地址都是B的。

A．相同B．动态C．可以相同D．固定2．下列四个不同进位制的数中，数值最大的是B。

A．十进制数73.5 B．二进制数1001101.01C．八进制数115.1 D．十六进制数4C.43．下列关于台式PC机芯片组的叙述中，错误的是D。

A．芯片组是主板上最为重要的部件之一，存储器控制、I/O控制等功能主要由芯片组实现B．芯片组与CPU同步发展，有什么样功能和速度的CPU，就需要什么样的芯片组C．芯片组决定了主板上能安装的内存最大容量及可使用的内存条类型D．同CPU一样，用户可以很方便，很简单地更换主板上的芯片组4．路由器（Router）用于异构网络的互连，它跨接在几个不同的网络之间，所以它需要使用的IP地址个数为_D_。

A．1 B．2 C．3 D．所连接的物理网络的数目5．为了既能与国际标准UCS(Unicode)接轨，又能保护现有的中文信息资源，我国政府发布了_C汉字编码国家标准，它与以前的汉字编码标准保持向下兼容，并扩充了UCS/Unicode中的其他字符。

A．ASCII B．GB2312C．GB18030 D．GBK6．在下列有关通信技术的叙述中，错误的是C。

A．目前无线电广播主要还是采用模拟通信技术B．数字传输技术最早是被长途电话系统采用的C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”)D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是C。

A．通常用户需要付费才能得到商品软件的合法使用权B．共享软件是一种“买前免费试用”的具有版权的软件C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利8．下列有关Internet的叙述错误的是_A。

vb练习题及答案

vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。

答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。

答案：AddHandler3. 在VB中，________方法用于结束程序的执行。

答案：End4. VB中，________属性用于获取或设置一个控件的文本。

答案：Text5. 在VB中，________方法用于打开一个文件。

答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。

答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。

事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。

2. 描述VB中如何使用For循环。

答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。

基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

A．相同B．动态C．可以相同D．固定2．下列四个不同进位制的数中，数值最大的是B。

A．十进制数73.5 B．二进制数1001101.01C．八进制数115.1 D．十六进制数4C.43．下列关于台式PC机芯片组的叙述中，错误的是D。

A．ASCII B．GB2312C．GB18030 D．GBK6．在下列有关通信技术的叙述中，错误的是C。

A．随着Modem性能的提高，电话拨号上网的速度越来越快，目前可达1Mbps以上B．用户从不同的网站下载信息，其速度通常有所不同C．从Internet上搜索到的信息，有时不能下载到本地计算机D．网页上的图片大多为GIF和JPEG格式9．下面有关I／O操作的说法中正确的是_A_。

A．为了提高系统的效率，I／O操作与CPU的数据处理操作通常是并行进行的B．CPU执行I／O指令后，直接向I／O设备发出控制命令，I／O设备便可进行操作C．某一时刻只能有一个I／O设备在工作D．各类I／O设备与计算机主机的连接方法基本相同10．在未压缩情况下，图像文件大小与下列因素无关的是A。

A．图像内容B．水平分辨率C．垂直分辨率D．像素深度第二部分Visual Basic程序设计一、选择题（共10分，每题2分）1对应的VB表达式为B。

A．Log(x) / Log(10) + Abs(Sqr(x ^ 2 + y ^ 2)) / (Exp(x + 1) - Cos(60 * 3.14159 / 180)) B．(Log(x) / Log(10) + Abs(Sqr(x * x + y * y))) / (Exp(x + 1) - Cos(60 * 3.14159 / 180)) C．(Log(x) + Abs(Sqr(x ^ 2 + y ^ 2))) / (Exp(x + 1) - Cos(60 * 3.14159 / 180))D．(Log(x) + Abs(Sqr(x * x + y * y))) / (e ^ (x + 1) - Cos(60 * 3.14159 / 180))2．已知X<Y，A>B，则下列表达式中，结果为True的是_C。

A．Sgn(X-Y)+Sgn(A-B)=-1 B．Sgn(X-Y)+Sgn(A-B)=-2C．Sgn(Y-X)+Sgn(A-B)=2 D．Sgn(Y-X)+Sgn(A-B)=03．以下对数组参数的说明中，错误的是_A_。

A．在过程中可以用Dim语句对形参数组进行声明B．形参数组只能按地址传递C．实参为动态数组时，可用ReDim语句改变对应形参数组的维界D．只需把要传递的数组名作为实参，即可调用过程4．在文本框Text1中输入数字12，在文本框Text2中输入数字34，执行以下语句，可在文本框Text3中显示46的是_B。

A．Text3.Text=Text1.Text & Text2.TextB．Text3.Text=Val(Text1.Text)+Val(Text2.Text)C．Text3.Text=Text1.Text+Text2.TextD．Text3.Text=Val(Text1.Text) &Val(Text2.Text)5．Print方法可在_A上输出数据。

①窗体②文本框③图片框④标签⑤列表框⑥立即窗口A．①③⑥B．②⑨⑤C．①②⑤D．③④⑥二、填空题（共20分，每空2分）1．执行下面程序，单击命令按钮Command1，在弹出的InputBox对话框中输入8，并按“确定”按钮，则a (1)的值是21，a (5)的值是_3_Option ExplicitOption Base 1Private Sub Command1_Click()Dim a() As Integer, i As Integer, n As Integern = InputBox("输入N", , 8)ReDim a(n)Call process(a, 1, 1)For i = 1 To nPrint a(i)Next iEnd SubPrivate Sub process(a() As Integer, m As Integer, n As Integer)Dim i As Integeri = UBound(a)a(i) = ma(i - 1) = ni = i - 2Do While i >= 1a(i) = a(i + 1) + a(i + 2)i = i - 1LoopEnd Sub2．执行下面的程序，单击Command1，则数组元素a(1,2)的数值是15 ，a(2,3) 的数值是9 ，a(4,3)的值是 2 。

Option ExplicitPrivate Sub Command1_Click()Dim a(4, 4) As Integer, i As IntegerDim j As Integer, k As Integer, n As Integern = 16: k = 2DoFor i = 1 To 4For j = 1 To 4If i + j = k Thena(i, j) = nn = n - 1End IfNext jNext ik = k + 1Loop Until k > 8For i = 1 To 4For j = 1 To 4Print Right(" " & a(i, j), 3);Next jPrintNext iEnd Sub3．执行下面程序，单击按钮Command1，在窗体上第一行显示的内容是0.6 ，第三行显示的内容是 5.4 。

Option ExplicitPrivate Sub Command1_Click()Dim x As Single, i As Integerx = 1.2For i = 1 To 3x = x * iPrint fun1(x)Next iEnd SubPrivate Function fun1(x As Single) As SingleStatic y As Singley = y + xfun1 = y / 2End Function4．运行下面程序，单击CmdRun ，在窗体上显示a 的值是 -25 ，b 的值是 14 _ ，i 的值是 13 _ 。

Option ExplicitPrivate Sub CmdRun_Click()Dim i As Integer, a As Integer, b As Integera = 1:b = 10For i = a To b Step a + 1a = a - i – 1:b = b + 1: i = i + 1Next iPrint a, b, iEnd Sub三、操作题（共50分）１．完善程序。

（共12分）【要求】打开“C:\学生文件夹”中“P1.vbp ”文件，按参考界面形式编辑窗体界面，完善程序后，直接保存所有文件。

【题目】本程序的功能是，找出使用公式412+-m m （m=1~100）生成的一个数据序列中的所有非素数，分别输出这些非素数的全部真因子。

所谓数据n 的真因子是指除1和n 之外的因子。

Option ExplicitPrivate Sub Command1_Click()Dim m As Integer, p As LongDim st1 As StringFor m = 1 To 100st1 = _' " "p = m * m - m + 41If Not prime(p) ThenCall fac(p, st1)List1.AddItem "第" & m & "项" & p & ":" & st1End IfNext mEnd SubPrivate Function prime(n As Long) As BooleanDim k As IntegerFor k = 2 To Sqr(n)If n Mod k = 0 Then _'Exit FunctionNext kprime = TrueEnd FunctionPrivate Sub fac()'n As Long, st As StringDim i As IntegerFor i = 2 To n \ 2If n Mod i = 0 Thenst = 'st & I & " ,"End IfNext ist = Left(st, Len(st) - 1)End Sub２．改错题（共16分）【要求】(1)打开“C:\学生文件夹”中“P2.vbp”文件，按参考界面形式编辑窗体界面，改正程序中的错误后，直接保存所有文件；(2)改错时，不得增加或删除语句，但可适当调整语句位置。

【题目】求在区间 [2，1000 ]上的完数。