VB程序设计例题程序改错程序填空程序设计
vb程序设计书习题和参考答案
vb程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。
2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。
3．事件是由Visual Basic预先定义的对象能够识别的动作。
4．新建⼯程时系统会⾃动将窗体标题设置为Form1。
5．控件的属性值不可以在程序运⾏时动态地修改。
6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。
7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。
8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。
9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。
10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。
⼆、选择题1．⼯程⽂件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。
A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
完整word版VB程序设计试题题库及答案
VB程序设计笔试题题库选择题1下列常量中，是Integer类型常量的是（C ）。
A、123&B、-38844C、123%D、327682下面选项中（）是字符连接运算符•（A ）A、&B、AndC、%D、M od3 下面关于VB的集成开发环境（IDE ）的叙述中，不正确的是（B ） oA、IDE是设计、调试、运行VB程序的工具。
B、用户不能随意关闭IDE中的窗口。
C、”窗体设计”窗口是用来设计应用程序界面（窗体）的。
D、打开/关闭各窗口的命令主要在IDE的”视图”菜单中。
4 len（"程vb 序设计”）=（C）。
A、5B、2C、6D、105表达式15 Mod4 +13\5 *2 的值是DA、7B、0C、2D、46 赋值语句A=123 +Mid$（“ 123456”，3,2）执行后，A= （ A ）。
A、157B、12334C、123D、”12334”7在一个语句内写多条语句时，用来分隔每条语句的符号是（C ）・A、，B、；C、:D、、8将逻辑型数据转换成整型数据时，转换规则是( D ) oA、将True转换为1 ,将False转换为0B、将True转换为1 ,将False转换为-1C、将True转换为0 ,将False转换为-1D、将True转换为-1 ,将False转换为09表达式2+3*4A5-SIN(X+1)/2中最先进行的运算是(D ).A、SINB、4A5C、3*4D、x+110 如果x=2 ,则表达式x+1 >2 Or sin(x)>0.9 And 3>x+3 的值(B ) oA、不能计算B、TrueC、5D> False11随机产生［10, 50］之间整数的正确表达式是( D )。
A、Round( Rnd*50)B、Int(Rnd*40+10)C、Round( Rnd*51)D> 10+Int(Rnd*41)12每建立一个窗体，工程管理器窗口中就会增加一个(C ).A、类模块文件B、工程文件C、窗体文件D、程序模块文件13 INT(100*RND(l))产生的随机整数的闭区间是( B ).A、[1,100]B、[0,99]C、[0,100]D、[1,99]14下列数据类型中，占用内存最小的是（D）・A、IntegerB、SingleC> BooleanD> Byte15 VisualBasic 是一种（ B ）程序设计语言.A、过程式B、非过程式C、机器D、低级16函数Int（10*Rnd）是在（A）范围内的整数・A、[0,9]B、[0,1]C、[1,9]D、[1,10]17以下合法的一组VisualBasic 用户标识符是(C )A、S um 和8abcB、a#x 和PiC、F orLoop 和TotalD、C onst 和Do While18函数Len(Str(Val(n123.4n))) 的值为(B ).A、5B、6C、8D、1119Int(198.555*100+0.5)/100 的值为( B )A、199.6B、198.56C、200D、19820以下各表达式中，计算结果为0的是(A ). A、FIX(12.4)+FIX(-12.6)B、C INT(12.4)+CINT(-12.6)C、I NT(12.4)+INT(-12.6)D、F IX(13.6)+FIX(-12.6)21MsgBox（）的正确语法是（D ）。
程序设计语言VB填空题及答案
《程序设计语言VB》填空题1. Private Sub Command1_Click()a=3b=1For i=1 To 3f=a + ba=bb=fNext iPrint fEnd Sub以上程序段运行后，f的结果为。
2.设有如下通用过程：Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = 2* iNextfun arr, nText1.Text = Str(n)End Sub程序运行后,单击命令按钮,则在文本框中显示的内容是。
3.阅读下列程序段Option ExplicitPrivate Sub Command1_Click()Dim str1 As StringDim str2 As Stringstr1 = "ABCDEFG"MySub str1, str2Print str2End SubPrivate Sub MySub(ByVal a As String, b As String) Dim c As StringDim i As IntegerFor i = Len(a) To 1 Step -1c = c+ Mid(a, i, 1)Nextb= cEnd Sub程序运行后，“print”语句的输出结果是___ _。
4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = Int(Rnd) + 6If x ^ 2 > 25 Then y = x ^ 2 + 5x = Int(Rnd) + 4If x ^ 2 < 25 Then y = x ^ 2x = Int(Rnd) + 5If x ^ 2 = 25 Then y = x ^ 2 - 5Print yEnd Sub程序运行后，单击命令按钮，其输出结果为__ _。
VB程序改错40题
第52题（1.0分）题号:450'------------------------------------------------'【程序改错】'------------------------------------------------'题目：统计一顺序文件text.txt中的空格、字母、数字和其它字符个数。
'------------------------------------------------Option ExplicitPrivate Sub Command1_Click()Dim s As String, C As StringDim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer, other As Integer'**********FOUND**********Open App.Path & "\text.txt" For Output As #1'**********FOUND**********Do Until EOF(0)Line Input #1, sL = Len(s)For I = 1 To LC = Mid(s, I, 1)If C >= "a" And C <= "z" Or C >= "A" And C <= "Z" Thencharacter = character + 1ElseIf C = " " Thenspac = spac + 1'**********FOUND**********ElseIf C >= "0" And C < "9" Thendigit = digit + 1Elseother = other + 1End IfNext ILoopClose #1Print "字符个数为："; character; "数字个数为："; digitPrint "空格个数为："; spac; "其它个数为："; other End Sub答案：=======(答案1)=======Open App.Path & "\text.txt" For Input As #1=========或=========Open "text.txt" For Input As #1=======(答案2)=======Do Until EOF(1)=========或=========Do While Not EOF(1)=======(答案3)=======ElseIf C >= "0" And C <= "9" Then第57题（1.0分）题号:465'------------------------------------------------ '【程序改错】'------------------------------------------------'题目：用InputBox函数输入一个字符串，编写程序按与' 输入的字符相反的次序用Msgbox函数输出这个字' 符串。
中职VB语言程序设计程序填空题综合练习(二)
VB语言程序设计综合练习：程序填空题程序填空题1. 题目：文本框txtin输入一个十进制整数将其转化为二进制数。
程序运行界面如下图所示。
单击“转换”按钮，标签lblre中输出二进制数。
Private Sub Command1_Click()Dim n As Longlblre.Caption = ""n = Val(txtin.Text)DO While n <> 0r =lblre.Caption = r & lblre.CaptionLOOPEnd Sub2. 题目：单击“打印”按钮command1在图片框picture1中输出如图下所示的图形。
（涉及的循环要求用for循环）Private Sub command1_Click()For i = 1 To 5picture1.Print Tab(10 + i); "$";For j =picture1.Print "*";Next jpicture1.Print "$";picture1.PrintNext iTab(10 + i); "*";End Sub3. 题目：单击form1窗体：重新定义坐标系为（-10，300）-（300，-10）；在窗体上按公式：y=x2÷255，其中x=0~255。
用Pset方法绘制如图所示图形，其中线宽为3。
（要求for循环实现）Private Sub Form_Click()Scale (-10, 300)-(300, -10)DrawWidth = 3Line (-10, 0)-(300, 0): Line (0, 300)-(0, -10)For x =y =PSet (x, y)Next xEnd Sub4．题目：判断文本框text1中输入的字符是否全是字母,并在标签label1中显示判断结果：“全是字母”或“不全是字母”。
VB程序设计练习题及参考答案
VB程序设计练习题及参考答案visualbasic程序设计练习题一、填空1．当进入vb集成环境，发现没有显示“工具箱”窗口时，应选择菜单的选项，使“工具箱”窗口显示。
2.在BMP图形文件之后加载命令按钮的图片属性时，所需的图形不会显示在选项按钮上，因为该属性未设置为1（图形）。
3．在文本框中，通过属性能获得当前插入点所在的位置。
4.要编辑文本框中的现有内容，请按键盘上的键，但该键不起作用，因为该属性已设置为true。
6．在vb中，1234、123456＆、1.2346e+5、1.2346d+5四个常数分别表示、、、。
7.整数变量x存储两位数。
要交换两个数字的位置，例如，13变为31，表达式为。
8．表示x是5的倍数或是9的倍数的逻辑表达式为。
9.如果a=3.5、B=5.0、C=2.5和d=true，则表达式a>=0anda+C>B+3ornotd的值为。
10．int(-3.5)、int(3.5)值分别是、。
11．表达式ucase(mid(\的值是。
12.要将以下语句循环20次，循环变量的初始值应为：fork=to-5step-213．下面程序段显示个“*”。
fori=1到5 Forj=1打印\nextjnexti14．复选框属性设置为2－grayed时，变成灰色，禁止用户选择。
15．属性设置为1，单选按钮和复选框的标题显示在左边。
16．属性设置为1，单选按钮和复选框以图形方式显示。
17.程序运行时，如果框架属性设置为false，框架标题为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。
18．列表框中项目的序号是从开始的。
19.指示列表框中最后一项的序列号。
20.方法可以清除列表框中的所有内容。
21．组合框是组合了文本框和列表框的特性而形成的一种控件。
风格的组合框不允许用户输入列表框中没有的项。
22.VB程序存储在模块中，模块分为______________三种类型。
123.如果希望每15秒生成一次计时器事件，interval属性应设置为。
vb程序改错和程序设计
【程序改错】'题目：该程序的功能是求出100到200之间的全部素数，并且按每行4个、每个数据之间有10个空格的格式输出。
'注意：不可增加或删除程序行，也不可以更改程序结构' Private Sub Form_Click()dim k as integer,i as integer,j as integerk = 0For i = 100 To 200'**********FOUND**********For j = 1 To i - 1If i Mod j = 0 Then Exit ForNext jIf j = i Then'**********FOUND**********Print i; Tab(10);k = k + 1'**********FOUND**********If k Mod 5 = 0 Then Print;End IfNext iEnd Sub答案：1). For j = 2 To i - 1 或For j = 2 To -1 + i2). Print i; Space(10);3). If k Mod 4 = 0 Then Print━━━━━━━━━━━━━━━━'【程序设计】' '题目：(事件)单击窗体。
(响应)求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中答案：26__________________________________Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum'【程序改错】'------------------------------------------------'题目：在下面的程序段中过程pd可以判断任意三个数能' 否构成三角形的三边，利用该过程的判定结果，对能构成三角形的计算其面积，构不成的显示"不能构成三角形Option ExplicitPrivate Sub Form_Click()'**********FOUND**********Dim x%, y%, z%, s%, b As Boolean,h as Singlex = InputBox("请输入三角形的边长")y = InputBox("请输入三角形的边长")z = InputBox("请输入三角形的边长")= InputBox("请输入三角形的边长")b = pd(x, y, z)h = (x + y + z) / 2'**********FOUND**********If not b Thens = Sqr(h * (h - x) * (h - y) * (h - z))Print "三角形面积是"; sElsePrint "不能构成三角形"End IfEnd Sub'**********FOUND**********Public Function pd( ) As BooleanIf x > 0 And y > 0 And z > 0 And x + y > 0 And x + z > y And y + z > x Thenpd = TrueElsepd = FalseEnd IfEnd Function答案：1). Dim ★x%★, ★y%★,★z%★, ★s!★, ★b★As Boolean★, ★h As Single2). If b Then3). Public Function pd(x%, y%, z%) As Boolean━━━━━━━━━━━━━━━━三、程序设计共1题（共计15分)'题目：(事件)双击窗体。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
'以下程序段用于输出杨辉三角:结果样式如图1'Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To narr(I, I) = 1'**********SPACE**********【arr(I, 1) = 1】Next IFor I = 3 To nFor j = 2 To I - 1'**********SPACE**********arr(i, j) =arr(i-1,j-1)+arr(i-1,j)Next jNext IFor I = 1 To nFor j = 1 To I'**********SPACE**********【print arr(I,j)】Next jPrintNext IEnd SubOption Explicit'------------------------------------------------'【程序改错】'------------------------------------------------'题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，' 当x〉1或x〈-1时，函数值为0。
当n〈=0时，输入数' 据错误。
X、N都是由用户输入。
'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Command1_Click()Dim s As SingleDim n As Integer, x As Single, k As Integern = Val(InputBox("Please input a integer value:"))x = Val(InputBox("Please input a single value:"))If n <= 0 Thenk = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")Exit SubEnd Ifs = Sum(x, n)Print sEnd SubFunction Sum(x As Single, n As Integer)Dim i As Integer, ss As Longss = 1Sum = 0If x > 1 Or x < -1 Then'**********FOUND**********Exit Do 改为Exit FunctionElse'**********FOUND**********For i = 2 To n 改为For i = 2 To n+1ss = ss * i'**********FOUND**********Sum = x ^ (i - 1) / ss 改为Sum =sum+ x ^ (i - 1) / ssNext iEnd IfEnd FunctionOption Explicit'------------------------------------------------'【程序改错】'------------------------------------------------'题目:编程将一个数从已经有序（设从小到大排序）的数组' 中删除，使数组还继续保持有序而且其余元素按照下' 标连续存放。
'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim A() As Integer, N As Integer, Flag As IntegerDim i As Integer, X As Integer, P As IntegerFlag = 0N = InputBox("输入元素个数")'**********FOUND**********Dim A(N) 改为ReDim A(N)For i = 1 To NA(i) = InputBox("输入数组的第" & i & "个元素") Next iPrint "删除某元素前的数组"For i = 1 To NPrint A(i);Next iStart:X = InputBox("输入要删除的元素：")For i = 1 To NIf X = A(i) Then P = i: Flag = 1Next iIf Flag = 0 Then MsgBox ("没有此元素"): GoTo StartFor i = P To N - 1'**********FOUND**********A(i + 1) = A(i) 改为A(i) = A(i+1)Next i'**********FOUND**********N = N + 1 改为N = N- 1Print "删除元素后的数组:"For i = 1 To NPrint A(i);Next iEnd SubPrivate Sub Form_Click()'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)输出一个如图所示的由数字组成的倒三角形' 请将结果存入变量S中(要求利用msgbox函数' 显示结果，使用for...next语句完成程序)'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------Dim s As String'***************** Program **************Dim i%, j%, w$w = ""For i = 10 To 1 Step -1For j = 0 To i - 1w = w & CStr(j)Nextw = w & vbCrLfNextMsgBox ws = w'*************** End *************************Call YZJ(s)End SubPrivate Sub YZJ(i As String)Dim OUT As IntegerOUT = FreeFileOpen App.Path & "\out.txt" For Output As #OUTPrint #OUT, iClose #OUTEnd SubPrivate Sub Form_Click()'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求100到500之间奇数的和，将结果输出' 在窗体上并存入变量SUM中。
' 使用do...loop until语句完成程序'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------Dim sum As Long'***************** Program **************'*************** End ************************* Call YZJ(sum)End SubPrivate Sub YZJ(i As Long)Dim OUT As IntegerOUT = FreeFileOpen App.Path & "\out.txt" For Output As #OUTPrint #OUT, iClose #OUTEnd SubOption Explicit'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：下面的程序用于求三个数中最大数'请在【?】处填入正确的内容'-------------------------------------------------------'Private Sub Command1_Click()Dim a, b, c, max, min As Integera = Val(InputBox("请输入第一个数："))b = Val(InputBox(" 请输入第二个数："))c = Val(InputBox("请输入第三个数："))'**********SPACE**********【?】= amin = a'**********SPACE**********If b > max Then 【?】If b < min Then min = b'**********SPACE**********If 【?】Then max = cIf c < min Then min = cPrint "最大数为："; maxPrint "最小数为："; minEnd Sub'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。