下载文档原格式
A ）二进制文件 9.设X 二-2,贝I 」（ A ） Vai （“X"）D)・Abs(X)s.Remove (1,5)s.Remove (3, 2)C ） s.Substring（6, 2） D ） s.Substring （5）要求一个正整数n 除以8所得的余数，不可以采用（D )oA) n Mod 8 n-Int(n/8)*8 B) n-Fix(n/8)*8 n-Int(n\8) 程序设计参考习题（16级）一、单项选择题1. 如果a, b, c 的值分别是・2, 2, 3,则下列表达式的值是（A ）。
Math.Abs （b*c-a ） + b*Int （Rnd （））A ） 8B ） 9C ） 10D ） 11 2. 执行如下语句：Label 1 .Text= InputBoxf 4请输入标题“新标题“旧标题”）将显示一个输入对话框，若用户不输入内容就直接冋车，贝J Label 1显示的标题内容是 （A ）。
A ）旧标题B ）新标题C ）空白D ）请输入标题3. 在代码窗口中，当从对象列表框屮选定了某一对象后，在（A ）屮会列出适用该对象 的事件过程。
A ）事件过程列表框B ）属性框C ）工具箱D ）工具栏 5. 在设计阶段，用鼠标双击窗体上的某个控件，打开的窗口是（C ）oA ）解决方案资源管理器窗口B ）属性窗口C ）代码窗口D ）即时窗口6. 设窗体VBform 上有1个命令按钮Btnl,下面叙述正确的是（C ） A ） 窗体的Click 事件过程的过程名是Form_Click B ） 窗体的Click 事件过程的过程名是Forml_Click C ） 命令按钮的Click 事件过程的过程名是Btnl_Click D ） 命令按钮的Click 事件过程的过程名是Buttonl_CIick7. 要在命令按钮Button!上显示“开始”，可用下列语句中的（B ）。
A ） Buttonl.Value ="开始" B ） Button 1 .Text = v 开始" C ） = ”开始”D ） Button 1.Caption = ,?开始”8. 以下可以用普通文本编辑软件打开阅读的数据文件是（ B ）oB ）顺序文件C ）随机文件）函数的执行结果与英他3个不一样。
VB语言习题集答案第一章VB环境和程序设计初步习题一、选择题1-5: ACBCA 6-10: BACBA 11-15: DCDAD 16-20: BDBCA21-24: BDAD二、填空题(1)ADO ActiveX Database Object 第9章介绍(2)视图(3)工具箱(4)工具(5)选项(6)编辑器(7)对象的性质，来描述和反映对象特征的参数(8)对象的动作和行为(9)Form窗体(10)Font(11)MultiLine(12)在程序运行时无效。
有些属性只能在设计时才能设置，例如：BorderStyle, MaxButton等；有些属性只能在运行时设置，例如：SelStart, SelLenght等。
(13)Style(14)工程(15)工程属性(16)通用(17)Form1.Show(18)SelStart(19)Locked(20)TabIndex(21)0三、编程题第二章简单的VB程序设计习题一、概念题1、合法常量有:(1)Single (3)Single (4)Double (7)String (9)Date (10) Double (12)八进制的整型(13) 八进制的整型(14) 十六进制的整型(15)Boolean (18)Single2、合法变量:(1)(2) (6) (9) (10) (11)3、(1)abs(x+y)+z^5(2)(1+x*y)^6(3)(10*x+sqr(3*y))/(x*y)(4)sin(45*3.1415926/180)+(exp(10)+log(10))/sqr(x+y+1)4、(1)chr$(67) and chr$(76)(2)int(rnd*101)+100(3)int(x/5) =x/5 or int(x/7)=x/7(4)略(5)int(x*100+0.5)/100(6)略(7)略(8)x>=10 and x<20(9)x<z or y<z(10)x>z and y>z5、写出下列表达式的值：(1)188 (2)200100 (3)68.56 (4)876543 (5)2000-2-29(6) 66、略7、略8、略9、答：数字字符串转换成数值，用Val函数；用IsNumeric()函数可判断是否是数字字符串；用Mid()函数取字符串中的某几个字符；用Ucase()函数将小写字母转换成大写字母；用Lease()函数将大写字母转换成小写字母。
=第二章标准控件和属性1．下列可以激活属性窗口的操作是（ D ）A）用鼠标双击窗体的任何部位 B）执行‘工程’菜单中的‘属性窗口’命令 C）按Ctrl+F4键 D）按F4键2．确定一个控件在窗体上的位置的属性是（ D ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left3．确定一个窗体或控件的大小的属性是（ B ）A）Width或Height B）Width和Height C）Top或Left D）Top和Left4．在Visual Basic中，所有标准控件都具有的属性是( B )。
【2013年9月考试真题】A) Caption B) Name C) Text D) Value参考答案：B【解析】VB标准控件中不同控件具有不同属性，有的相同有的不同，但都具有Name属性。
故选B。
5．为了让计时器控件每隔10秒产生了一个Timer事件，应把Interval属性设置为（ B ）A) 1000 B) 10000 C) 10 D) 1006．下面关于单选按钮和复选框的叙述中正确的是（ D ）A) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为2B) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为TrueC) 单选按钮被选中则它的Value属性为1；复选框被选中则它的Value属性为1D) 单选按钮被选中则它的Value属性为True；复选框被选中则它的Value属性为17．将文本框的ScrollBar设置为2，文本框中却没有垂直滚动条，其原因为（ B ）A) 文本框的Locked属性值为True B) 文本框的MultiLine属性值为FalseC) 文本框的MultiLine属性值为True D) 文本框中没有内容第三章简单程序设计语句1.在面向对象的程序设计中，可被对象识别的动作称为( B )。
VB程序(chéngxù)习题集(附答案)解析VB程序习题集(附答案(dá àn))解析VB简介(jiǎn jiè)1、在以下有关对象属性(shǔxìng)的叙述中，不正确的是___________。
A、一个对象的属性可分为外观(wàiguān)、行为若干类B、不同属性(shǔxìng)可能具有不同的数据类型C、一个对象的所有属性(shǔxìng)都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法(fāngfǎ)、属性C、对象(duìxiàng)、属性、值D、属性(shǔxìng)、对象、值4、用窗体的___________属性(shǔxìng)来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在(cúnzài)三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
参考答案第1章概述二．选择题：1.C2. B.3.C.4.C.5.A6.C7.D8.B9.B 10.B11.A12.C 13.D 14.C 15.D16.A17.C 18.A19.A20.D 21.B三．填空题：1.面向对象，事件驱动2.编译，解释3.设计，运行，中断4.F55.调试6.切换文件夹四．编程及上机调试：1．略2．Sub Form_Click( )Label1.Caption = “你单击了窗体”End SubSub Form_DblClick( )Label1.Caption = “你双击了窗体”End Sub第2章面向对象编程基础二．选择题：1.C2. C.3.B.4.B.5.D6.D7.B8.B9.C 10.D11.B 12.B 13.B 14.C 15.A16.B 17.B 18.B 19.C 20.B三．填空题：1.窗体，控件2.属性，事件，方法mand2_click4.picture5.中部，代码四．编程及上机调试：1．Private Sub Command1_Click()Form1.WindowState = 2End SubPrivate Sub Command2_Click()Form1.WindowState = 0End SubPrivate Sub Command3_Click()Form1.WindowState = 1End Sub2．Private Sub Command1_Click()Form1.Picture = LoadPicture("d:\picture\flower.wmf")Command1.V isible = FalseCommand2.V isible = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_DblClick()Form1.Picture = LoadPicture("")Command1.V isible = TrueCommand2.V isible = TrueEnd Sub第3章常用标准控件二．选择题：1.C2. B3.C.4.D5.B6.B7.A8.C9.B 10.C11.C 12.A13.C 14.B 15.D16.D 17.C 18.A19.D 20.A21.B三．编程及上机调试：1.Private Sub Check1_Click()If Check1.V alue = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.V alue = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check1.V alue = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Command1_Click()Text1.Text = " "End Sub2.Private Sub Command1_Click()Text2.Text = List1.ListCountEnd SubPrivate Sub Command2_Click()List1.AddItem Text1.TextText1.Text = " "End SubPrivate Sub Command3_Click()Dim i As Integeri = List1.ListIndexList1.RemoveItem iCommand3.Enabled = FalseText1.SetFocusText2.Text = List1.ListCountEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseEnd SubPrivate Sub List1_Click()Command3.Enabled = TrueEnd Sub第4章VB语言基础二．选择题：1.A2. D3.D.4.A5.A6.A7.C8.D9.C 10.B11.A 12.D 13.C 14.A15.A16.C 17.D 18.A19.B 20.D21.C 22.A23.B 24.C 25.C三．编程及上机调试：1．Private Sub Form_Load()Dim x As Integer, s As String, d As IntegerRandomizex = Int(Rnd * 9000 + 1000)s = Trim(CStr(x))d = V al(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))ShowPrint "产生的数；"; x; "倒序数"; dEnd Sub2．Private Sub Form_KeyPress(KeyAscii As Integer)Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub3．Private Sub Form_Click()MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"End Sub或Private Sub Form_Click()MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"End Sub第5章程序控制结构二．单选题1.D2. C3.C.4.D.5.B6.C7.A8.A9.D 10.C11.C 12.C 13.B 14.B四．编程及上机调试1. Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")If x > 20 Theny = x ^ 2 + 3 * x + 2ElseIf x >= 10 Theny = Sqr(3 * x) - 2ElseIf x > 0 Theny = 1 / x + Abs(x)End IfPrint "x="; x, "y="; yEnd Sub（2）Select Case实现：Private Sub Form_Click()Dim x As Integer, y As Integerx = InputBox("请输入一个数值")Select Case xCase Is > 20y = x ^ 2 + 3 * x + 2Case Is >=10y = Sqr(3 * x) - 2Case Is > 0y = 1 / x + Abs(x)End SelectPrint "x="; x, "y="; yEnd Sub2.Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerFor i = 100 To 999a = i \ 100b = (i - a * 100) \ 10c = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = i ThenPrint i;k = k + 1If k Mod 2 = 0 Then PrintEnd IfNext iEnd Sub3．Private Sub Command1_Click()p = 60: r = 0.014Dop = p * (1 + r)n = n + 1Loop Until p >= 70Print n; "年后世界人口达到"; p; "亿"End Sub4．Private Sub Command1_Click()Dim s As Single, x As Integer, t As Single, n As Integer x = V al(InputBox("请输入x的值", , 2))s = 1n = 1m = 1Don = n + 1m = -mt = m * n / x ^ (n - 1)If Abs(t) < 0.00001 Then Exit Dos = s + tLoop Print s End Sub。
本文由余亚洪贡献doc文档可能在WAP端浏览体验不佳。
建议您优先选择TXT，或下载源文件到本机查看。
第 1、2 章 Visual Basic .NET 程序开发环境、一、单选题：单选题：1、A2、A3、B二、填空题：填空题：，Internet 协议。
1、XML（可扩展标记语言）、这里的 Internet 协议主要是指：HTTP 和 SOAP-简单对象访问协议。
2、可以提供多语言支持。
、 3、IIS（Internet Information Service）。
、 4、ADO .NET。
（本课程不要求）、 5、视图，工具箱。
、6、项目，“属性…”命令项，“生成”选项。
7、sln, vbproj, vb, bin。
三、编程题：略第 6 章常用 Windows 窗体和控件一、单选题1-5:CBCAD 6-10:BCABD 11-15:ADCDB 16-20:CDDCB 21-25：ACCDD 26-30:AABC 31-35：DDDDA 36-38：DCB二、填空题1、TextBox1.ForeColor=Color.Red;2、对象的性质，来描述和反映对象特征的参数；3、对象的动作和行为；4、对窗体的 FontName 属性设置；5、MultiLine;6、BackgroupImage;7、工具，对象属性，启动对象， Dim firstForm As New form1 firstForm.Show() 8、SelectAll 属性或 SelectText 属性，程序运行 9、Locked 10、Load, TabIndex, 0, Button1.Focus() 11、FormBorderStyle=FixSingle 12、Form1.Loction=new Point(left, top) 写在 Load 事件中。
13、CheckAlign=MiddleRight 14、ImageAlign 15、Image16、Enabled *17、0 *18、ListBox1.Items(ListBox1.Items.Count - 1) 19、Items 20、Items.Clear 21、当 DropDownStyle 属性为 DropDownList 值。
第一章第一章 环境和程序设计初步环境和程序设计初步一.选择题选择题1.在Visual 的集成开发的环境中，下面不属于该环境编程语言的是（C ）。
A.VBB.C++C. PascalD. J#2.在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D ）。
A.工具箱窗口工具箱窗口B.属性窗口属性窗口C.立即窗口立即窗口D.窗体窗口窗体窗口3.在 中，在窗体上显示控件的文本，用（中，在窗体上显示控件的文本，用（ A ）属性设置。
）属性设置。
A. TextB. NameC. CaptionD. Image 4.不论何种控件，共同具有的是什么属性( D )。
A. Text B. NameC ．ForeColorD ．Text 5．对于窗体，可改变窗体的边框性质的属性是（B ）。
A. MaxButtonB. FormBorderStyleC. NameD. Left 6.若要使标签控件显示时不要覆盖窗体的背景图案，要对（A ）属性进行设置。
）属性进行设置。
A ．BackColor B. BorderStyle C ．ForeColorD.BackStyle 7．若要使命令按钮不可操作，要对（A ）属性进行设置。
）属性进行设置。
A. EnabledB.VisibleC. BackColorD. Text 8.要使文本框中的文字不能被修改，应对（D ）属性进行设置。
）属性进行设置。
A. LockedB. VisibleC. EnabledD. ReadOnly 9.要使当前Form1 窗体的标题栏显示“欢迎使用 ”，以下（B ）语句是正确的。
）语句是正确的。
A. Form1.Text=“欢迎使用V ”B. Me. Text=“欢迎使用 ”C. =“欢迎使用 ”D. Me. Name=“欢迎使用 ”10.当运行程序时，系统自动执行启动窗体的（A ）事件过程。
）事件过程。
A. LoadB. ClickC. UnLoadD. GotFocus 11.当文本框的ScrollBars 属性设置了非None 值，却没有效果，原因是（B ）。
VB学习与实验指导测试题参考答案第一章第二章第三章第四章第五章第六章第七章第八章第九章综合测试题一综合测试题二下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。
习题集汇编整理者: 华中科技大学管理学院龚晓光一、单项选择题是否完全符合CLS? （ A ）。
A. 是B. 否2. 窗体中提供的是Hide方法的作用是（ D ）。
A. 销毁窗体对象B. 关闭窗体C. 将窗体极小化D.隐藏窗体3. 窗体对象的Close方法的作用（ C ）。
A. 极小化窗体B. 隐藏窗体C. 关闭窗体D. 销毁窗体对象（注意，这个题目有问题，参考后面的多选题）4. 中编写对象的成员方法代码时，表示"本对象"的关键字为（ D ）。
A. loca10bjectB. selfC. thisD. Me5. 程序中的逻辑错误能否被编译器发现？（ B ）。
注：编译器只能捕获语法错误，而不能捕获运行时错误和逻辑错误。
A.能B.不能6. 对于语句Speed=Miles/Hours（其中Speet,Miles,Hours都是Double值），当Hours=0时，该语句将引发（ C ）。
.A.逻辑错误B.编译错误C.运行错误D.语法错误7. 在.NET构架中，程序被编译成（ B ）。
A.脚本B.MSIL码C.汇编码D.机器码8. InputBox( )函数括号中的第一个参数代表（ A ）。
A、提示信息B、标题C、默认值D、对话框位置9. 以下哪种项目是不能创建的（ B ）。
A、Windows应用程序B、Dos应用程序C、Web应用程序D、Windows服务10. 要在文本框中显示文本，应给其（ A ）属性赋值。
A、TextB、CaptionC、NameD、File11. 将按钮的Visible属性设为False，按钮会（ B ）。
A、可用且可见B、可用不可见C、可见不可用D、不可用不可见（注意，Visible属性设为False，在程序中测试，发现控件的enable属性是没有被修改的，所以控件是可用的。
而事实上，控件不可见，没有办法接受焦点，不能触发相关事件，对用户事实不可用，程序中还是可以用的（涉及到DDE等内容）。
本文由余亚洪贡献doc文档可能在WAP端浏览体验不佳。
建议您优先选择TXT，或下载源文件到本机查看。
第 1、2 章 Visual Basic .NET 程序开发环境、一、单选题：单选题：1、A2、A3、B二、填空题：填空题：，Internet 协议。
1、XML（可扩展标记语言）、这里的 Internet 协议主要是指：HTTP 和 SOAP-简单对象访问协议。
2、可以提供多语言支持。
、 3、IIS（Internet Information Service）。
、 4、ADO .NET。
（本课程不要求）、 5、视图，工具箱。
、6、项目，“属性…”命令项，“生成”选项。
7、sln, vbproj, vb, bin。
三、编程题：略第 6 章常用 Windows 窗体和控件一、单选题1-5:CBCAD 6-10:BCABD 11-15:ADCDB 16-20:CDDCB 21-25：ACCDD 26-30:AABC 31-35：DDDDA 36-38：DCB二、填空题1、TextBox1.ForeColor=Color.Red;2、对象的性质，来描述和反映对象特征的参数；3、对象的动作和行为；4、对窗体的 FontName 属性设置；5、MultiLine;6、BackgroupImage;7、工具，对象属性，启动对象， Dim firstForm As New form1 firstForm.Show() 8、SelectAll 属性或 SelectText 属性，程序运行 9、Locked 10、Load, TabIndex, 0, Button1.Focus() 11、FormBorderStyle=FixSingle 12、Form1.Loction=new Point(left, top) 写在 Load 事件中。
13、CheckAlign=MiddleRight 14、ImageAlign 15、Image16、Enabled *17、0 *18、ListBox1.Items(ListBox1.Items.Count - 1) 19、Items 20、Items.Clear 21、当 DropDownStyle 属性为 DropDownList 值。
22、Scroll 23、LargeChange 24、滚动条内滑块位置 25、15000 26、Now 27、TabPages 28、MouseButtons.Right 29、$ 30、Form1_Load, MyBaseLoad, cboComputer.Text, TxtComputer.Text, RideoButton1.Checked 31、i+1, ListBox1.Items.RemoveAt(j) 32、ComboBox1.Text = ComboBox1.Items(i)， Not flag 或flag=false，ComboBox1.Items.Add(ComboBox1.Text) 33、if FontDialog1.ShowDialog=DialogResualt.OK then TextBox1.Font=FontDialog1.Font End if if ColorDialog1.ShowDialog=DialogResualt.OK then TextBox1.ForeColor=ColorDialog1.Font End if 34、Label1.Font=New System.Drawing.Font(“黑体”,24,FontStyle.Italic) 三、编程题 1．设计一段程序在程序运行后，单击命令按钮后，文本框中显示出字符”欢迎来到 VB .NET 多彩世界!”, 并把文本框的背景和文字的颜色变成黄色和蓝色，字体为“楷书”，字型及字号变成“粗体”和 35 号字。
1、界面设计和属性对象名 Form1 Button1 TextBox1 程序：程序：属性 Text Text Text属性值“第 5 章上机题 1”“运行”“”2、在窗体上添加一个标签框，要求在程序运行时，单击窗体时改变标签的背景色（绿、色）、前景色（粉红）和标题，双击时还原。
提示：可以设置一个变量（将变量设为模块级）事先把原来窗体的背景颜色属性值，事先把原来窗体的背景颜色属性提示：可以设置一个变量（将变量设为模块级）事先把原来窗体的背景颜色属性值，赋给出这个变量，当执行另一个操作时，再将这个变量值赋回给窗体背景属性。
赋给出这个变量，当执行另一个操作时，再将这个变量值赋回给窗体背景属性。
程序：程序：，要求在窗体调整大小时，保持文框和窗体的比例不 3、在窗体上绘制一个文本框，变，请编写事件代码。
注意：在 VB .NET 2005 版里，有了 Anchor 和 Dock 属性后，上述代码就显的不重要了。
4、窗体上有 3 个按顺序建立的文本框 Text1、 Text2 和 Text3, 有哪些方法可在窗体加载时使 Text3 首先获得焦点。
方法一、用 TabIndex 属性实现方法二：用 Focus 方法实现TextBox3 得到焦点实现： 5、在 VB .NET 环境下，创建 1 个名为.Pro1 的项目，当窗体第一次显示时，窗体大小为（200，200）, 窗体边框为默认边框，窗体不透明；当鼠标在窗体上单击时，窗体边框变为固定大小的三维立体边框，窗体大小变为原来大小 2 倍且窗体变为半透明；当鼠标指针离开窗体时，窗体恢复为第一次显示时的状态。
程序： 6、再上题所建的项目中，再添加一个窗体，在程序运行时改变窗体的背景图案，并且两个窗体之间能够交替隐藏和显示。
程序： *7、创建两个窗体 Form1 和 Form2，在 Form1 上有命令按钮Button1”Form2.Show“，单击该按钮和单击 Form1 的结果相同，都是隐藏 Form1 显示 Form2; 在 Form2 上也有一个命令按钮 Button1”Form1.Show“，单击该按钮实现隐藏 Form2 显示Form1。
调用过程的方法，使用同一个过程实现在 Form1 上单击按钮、单击窗体以及在Form2 上单击按钮的功能。
程序：程序：多个窗体之间互相调用在 VB 6.0 中，多个窗体之间可以很方便地互相调用，如：在 Form1 中，只需要用一条“Form2.Show”语句就能显示窗体 Form2。
然而在 中窗体处理机制发生了很大的变化：在访问窗体之前，你必须进行窗体实例化；如果在项目中有多处代码访问同一窗体，则必须把它的同一实例指针传递给这些代码，否则新创建的窗体实例就不再是原先的窗体了。
下面的代码实现窗体 Form1 和 Form2 之间互相调用,Form1 为主窗体。
Form1 上的按钮 BtnShowFrm2 的标题为“显示 Form2”，Form2 上的按钮 BtnShowFrm1 的标题为“显示Form1”。
中的代码：（1）Form1 中的代码：Public Class Form1 Inherits System.Windows.Forms.Form ‘创建 Form2 的一个新的实例 Dim Frm2 As New Form2() Public Function Instance2(ByVal frm As Form2) Frm2 = frm End Function Private Sub BtnShowFrm2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShowFrm2.Click ’以下语句保证在 Form2 以及其他窗体中访问 Form1 时，都将得到 Form1 的同一个窗体实例。
Frm2.Instance(Me) Frm2.Show() Me.Hide() End Sub End Class 中的代码：（2）Form2 中的代码：Public Class Form2 Inherits System.Windows.Forms.Form Dim frm1 As Form1‘借助一个新增的 Instance 属性来生成窗体 frm1 的实例Public Function Instance(ByVal frm As Form1) frm1 = frm End Function Private Sub BtnShowFrm1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShowFrm1.Click Me.Hide() frm1.Show() End Sub Private Sub Form2_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed’如果 Form2 被关闭，则设置 Form1 的按钮 BtnShowFrm2 不可用。
frm1.BtnShowFrm2.Enabled = False frm1.Show() End Sub End Class 第 3 章简单 Visual Basic .NET 程序设计编程题：编程题： 1、见 P74 页 3.7 题程序： 2、见 P74 页 3.8 题、程序：第4章编程基础（顺序结构部份）章编程基础（顺序结构部份）一、单选题1、合法常量有: (1)Single (3)Single (4)Double (7)String (9)Date (10) Double (12)八进制的整型 (13) 八进制的整型 (14) 十六进制的整型 (15)Boolean (18)Single 2、合法变量: (1) (2) (6) (9) (10) (11) 3、(1)abs(x+y)+z^5 (2)(1+x*y)^6(3)(10*x+sqr(3*y))/(x*y) (4)sin(45*3.1415926/180)+(exp(10)+log(10))/sqr(x+y+1) 4、(1)chr$(67) and chr$(76) (2)int(rnd*101)+100 (3)int(x/5) =x/5 or int(x/7)=x/7 (4)略 (5)int(x*100+0.5)/100 (6)略 (7)略 (8)x>=10 and x<20 (9)x<z or y<z (10)x>z and y>z 5、写出下列表达式的值： (1)188 (2)200100 (3)68.56 (4)876543 (5) 6 6、答：单精度类型。
