VB程序设计例题-程序改错程序填空程序设计

合集下载

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程序设计试题及答案

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的函数,返回值为整数,应该使用语句________。

VB程序设计例题-程序改错程序填空程序设计

VB程序设计例题-程序改错程序填空程序设计

'以下程序段用于输出杨辉三角:结果样式如图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'------------------------------------------------'【程序改错】'------------------------------------------------'题目:编程将一个数从已经有序(设从小到大排序)的数组' 中删除,使数组还继续保持有序而且其余元素按照下' 标连续存放。

程序设计语言VB填空题及答案

程序设计语言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程序题更新版

VB程序题更新版

第一部分:应试攻略一、灵活运用多种求解方法由于湖南省二级考试所有程序题(包括:改错题、填空题和编程题)采取计算机自动评分,而评分的标准就是你最后填写的程序的运行结果而不是代码!因此,在不得已的情况下(有时也是更直接甚至是更简洁的办法),可利用以下方法之一解决问题!1、按自己的思路编程。

对于改错题或填空题,如果看不懂原代码,以至无法求解,可以按照自己的思路重写代码求解。

2、借助Windows附件中的计算器解决问题(如数制转换、开方、乘方、求和等)。

3、数学方法求解。

4、利用EXCEL求解。

二、熟悉基本问题的求解思路1、求整数的各位数字主要利用除法运算和求余运算。

基本思路是:先将要求的数字移到个位,再取出个位。

例如,x为四位数,则:x\1000:是千位数字。

x\100mod10:百位数字。

x\10mod10:十位数字。

xmod10:个位数字。

2、判断一个整数是否为素数判断整数N>2是否为素数的主要方法是:----若[2,sqr(N)]上无N的因子,则N为素数。

----将区间改为为[2,N/2]或[2,N-1],上述结论仍然成立。

----将“因子”改为“质因子”或“奇数因子”,上述结论仍然成立。

注意,1既不是素数,也不是合数。

在考试中,为了简便,建议将区间定为[2,N-1]。

如:以下代码用于判断奇数是否为素数:For k=2 To n-1 '在[2,n-1]上搜索n的奇因子If n Mod k=0 Then Exit ForNextIf k>=n Then ……' 如果k>=n,则n是素数3、判断一个整数是否为完全平方数设K、N均为Long类型变量,取K=sqr(N)。

则N为完全平方数的充要条件为:(1)K*K=N(2)Int(Sqr(N))=Sqr(N)。

4、确定正整数N的位数基本方法是删除个位法:Do While m ' m的初值为Nk=k+1:m=m\10Loop 'k初值为0。

VB程序填空改错设计题库全汇编

VB程序填空改错设计题库全汇编

VB程序填空改错设计题库全汇编1.'功能:以下程序段用于计算n的阶乘:n!。

(1!=1)2. 已知某城市一年的交通事故车辆报废情况,编程序计算该城市的交通事故一年损失金额。

3. 下面的程序用"冒泡"法将数组a中的10个整数按从小到大排列,请将程序补充完整。

4. '程序运行界面。

键盘输入3个数,将它们按由大到小的顺序输出,-1为结束标志。

5. '在窗体有三个复选框,名称分别为Ch1、Ch2和Ch3,标题依次为'"体育"、"音乐"、"美术",还有一个命令按钮,名称为C1,标题'为"显示"。

要求程序运行后,如果选中某个复选框,则当单击'"显示"命令按钮时,则显示相应的信息。

例如,如果选中"体育"'和"音乐"复选框,则单击"显示"命令按钮后,在窗体上显示'"我的爱好是体育音乐"(如图1所示);而如果选中"体育"、'"音乐"和"美术"复选框,则单击"显示"按钮后,在窗体上显示"'我的爱好是体育音乐美术"。

6. 窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。

' 判断密码是否正确,并显示相应提示在加载窗体时设置密码框最大长度为8,密码显示字符为“*”7. 下面的程序用于求三个数中最大数8. 要求输入若干学生的成绩,计算平均分和高于平均分的人数,并将这两个数据放入数组的最后。

9. 求A,B,C三个数的最大值。

10. 该程序通过For循环计算一个表达式的值,这个表达式是1/2+2/3+3/4+4/511. 用户单击命令按钮后,程序将文本框Text1中的文本反转显示,同时在文本框Text2中显示文本框Text1中字符串的个数12. 功能:单击“插入数据”按钮后,输入一个整型数据,该数据会被插入到一个有序的数组a(1 to 10)中,插入该数据后数组还是有序的。

VB程序设计试题及参考答案

VB程序设计试题及参考答案

VB程序设计试题及参考答案VB程序设计及参考答案⼀、单选题(共20分,每⼩题1分)1、要改变控件的宽度,应修改该控件的()属性。

(A)TOP (B)width (C)Left (D)Height2、将命令按钮Command1设置为不可见,应修改该命令按钮的()属性。

(A)Visible (B)Value (C)Caption(D)Enabled3、()对象具有clear⽅法。

(A)图⽚框(B)窗体(C)复选框(D)列表框4、启动VB后,就意味着要建⽴⼀个新()。

(A)窗体(B)⽂件(C)⼯程(D)程序5、下列()对象不具有Clear⽅法。

(A)列表框(B)组合框(C)剪贴框(D)图⽚框6、组合框有三种风格,它们由Style属性所决定,其中为简单组合框时,Style 属性值应为()(A)0 (B)1 (C)2 (D)37、下列可调整图⽚框的⼤⼩以适合图⽚的属性是()(A)Stretch (B)autosize (C)picture (D)oledropmode 8、要想清除⽂本框中的内容则可利⽤()进⾏。

(A)Caption (B)Text (C)Clear (D)Cls9、在⽂本框控件中将Text的内容全部显⽰为所定义的字符的属性是()。

(A)Password (B)PasswordChar(C)需要编程来实现(D)以上都不是10、Visual Basic是⼀种⾯向对象的程序设计语⾔,所采⽤的编程机制是()。

(A)从主程序开始执⾏(B)按过程顺序执⾏(C)事件驱动(D)按模块顺序执⾏11、下列四项中合法的变量名是()。

(A)a-bc (B)a_bc (C)4abc (D)integer12、⽆论何种控件,共同具有的属性是()(A)Text (B)Name (C)Caption (D)ForeColor13、有程序代码如下:Text1.Text = "Visual Basic程序设计"则Text1、Text ,和"Visual Basic程序设计"分别代表()。

VB程序设计练习题及参考答案

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改错填空答案

VB改错填空答案

属性设置:将Timer1的interVal属性设置为:10000,Timer2的interVal属性设置为:1000Timer1_Timerelse*原语句Label1.Visible=False改为Label1.Visible=TrueTimer2_Timer*原语句Label2.Caption = Timer()改为 Label2.Caption = Time()填空Tk248.Frm( 1 ) Val(m) ( 2 ) m Mod n改错Gc315.Frm属性设置:将Timer1的interVal属性设置为:0C1_Click*原语句Timer1.Enabled = False 改为 Timer1.InterVal=100Timer1_Timer*原语句If P1.Top > P2.Top + P2.Left Then 改为 If P1.Top > P2.Top + P2.Height Then填空Tk315.Frm( 1 ) Finish ( 2 ) <改错Gc316.Frm属性设置:将File1的Pattern属性设置为:*.bmp,将Image1的Stretch属性设置为:TrueDir1_Change*原语句 File1.Path = Dir1.Drive 改为 File1.Path = Dir1.PathFile1_Click*原语句 Image1.Picture = fname 改为 Image1.Picture = LoadPicture(fname)填空Tk316.Frm( 1 ) a(j - 1) + a(j) ( 2 ) Picture1.Print改错Gc317.Frm属性设置:将Timer1的InterVal属性设置为:100,将Label1的Caption属性设置为:上机测试Command2_Click*原语句 Timer1.Timer 改为 Timer1_TimerTimer1_Timer*原语句 ElseIf Label1.Left > 0 Then 改为 ElseIf Label1.Left < 0 Then填空Tk317.Frm( 1 ) Len(Text1.Text) ( 2 ) a(j) + 1改错Gc318.Frm属性设置:将Hscroll1的Max、Min属性分别设置为:20、10Command1_Click*原语句RGB(Text1.Text, Text2.Text, Text3.Text) 改为RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))HScroll1_Change()*原语句Label1.FontSize = HScroll1 改为 Label1.FontSize = HScroll1.Value填空Tk318.Frm( 1 ) i = 1 To 9 ( 2 ) Data(i) > Data(j)改错Gc319.Frm属性设置:将Form1的WindowState属性设置为:2,Command1的Caption 属性设置为:开始计算Command1_Click*原语句If j > 10 Then Exit Do 改为 If j = 10 Then Exit Do*原语句i = i - 1 改为 i = i + 1填空Tk319.Frm( 1 ) 5 ( 2 ) i属性设置:将Option3的Caption属性设置为: *,将Option3的ToolTipText属性设置为:乘法Option1_Click*原语句Text3.Text = Text1.Text + Text2.Text 改为Text3.Text = val(Text1.Text) + Val(Text2.Text) Option3_Click*原语句Text3.Text = Integer(Text1.Text * Text2.Text) 改为Text3.Text = Int (Text1.Text * Text2.Text)填空Tk320.Frm( 1 ) b ^ 2 - 4 * a * c ( 2 )ElseIf d = 0改错Gc334.Frm属性设置:将Text1的Text属性设置为:空值,将Command1的Caotion属性设置为:增加List1_Click*原语句List2.AddItem List1.ListIndex 改为List2.AddItem List1.TextList2_Click*原语句List2.RemoveItem List2.List(List2.ListIndex) 改为List2.RemoveItem List2.ListIndex填空Tk334.Frm( 1 ) s(Max) < s(j) ( 2 )s(n) = Text1.Text改错Gc335.Frm属性设置:将Timer1的InterVal属性设置为:1000,将窗体的Caotion属性设置为:倒计时程序Timer1_Timer*原语句Text1.Text = Format(Now, "SS:HH:MM")改为Text1.Text = Format(Now, "HH:MM:SS")Timer2_Timer*原语句Timer1.Interval = 0 改为Timer1.Enabled = False填空Tk335.Frm( 1 )Num(i) = Int(Rnd * 91 + 10) ( 2 )IsPrime(Num(i))改错Gc372.FrmSub swap1过程*原语句swap1(x As Integer, y As Integer)改为swap1(ByVal x As Integer, ByVal y As Integer) Sub swap2过程*原语句t = m: n = m: n = t 改为t = m: m = n: n = t填空Tk372.Frm( 1 )fibo(i); ( 2 )fibo(n - 1) + fibo(n - 2)改错Gc373.FrmForm_Click*原语句Else下面的nCount = nCount + 1 改为nCount = 1*原语句第二个End If 改为 Next n填空Tk373.Frm( 1 )a1 ( 2 )ncount -1改错Gc402.FrmForm_Click*原语句For i = 1 To n 改为For i = 1 To n-1*原语句sum = 1 / kk 改为 sum = sum + 1 / kk填空Tk402.Frm( 1 )Rnd*201+300 ( 2 )s = s + a(i)改错Gc403.FrmCommand1_Click*原语句((a + c>b) And (b>0)) Or ((c + b>a) 改为((a + c>b) And (b > 0)) And ((c + b>a)*原语句Abs(s * (s - a) * (s - b) * (s - c)) 改为 Sqr(s * (s - a) * (s - b) * (s - c))填空Tk403.Frm( 1 ) ss = Str( i ) ( 2 )a^3 + b^3 + c^3 = i属性设置:将Label1的BorderStyle属性设置为:1,将时钟的InterVal属性设置为:500Command2_Click*原语句Timer1.Enabled = True 改为Timer1.Enabled = FalseTimer1_Timer*原语句Label1.Caption = Timer() 改为 Label1.Caption = Time()填空Tk457.Frm( 1 ) n - i ( 2 )i < n改错Gc458.FrmC1_Click*原语句If x > 100 And x < 0 Then 改为If x > 100 Or x < 0 Then*原语句Label3.Caption = "该生成绩" 改为 Label3.Caption = Strtemp填空Tk458.Frm( 1 ) S ( 2 )result改错Gc481.FrmForm_Click*原语句f(i) = f(i) + f(i - 1) 改为f(i) = f(i-2) + f(i - 1)*原语句If (i Mod 5) = 5 Then 改为 If (i Mod 5) = 0 Then填空Tk481.Frm属性设置:将Command1的Caption属性设置为:计算机,将窗体的Caption属性设置为:等级考试( 1 ) Form1.Caption ( 2 )temp改错Gc482.Frm属性设置:将Text1、Text2的Text属性设置为:空值;Command1、Command2的Caption属性分别设置为:华氏转摄氏、摄氏转华氏Command1_Click*原语句F = Text1.Value 改为F = Text1.TextCommand2_Click*原语句C = Text2.Value 改为 C = Text2.Text填空Tk482.Frm( 1 ) i ( 2 )0改错Gc509.Frm属性设置:Command1、Command2的Caption属性分别设置为:计算&S、结束&XCommand1_Click*原语句If Text1.Text = "" Then 改为If Text1.Text <> "" ThenCommand2_Click*原语句Exit 改为 End填空Tk509.Frm( 1 ) 100 ( 2 )True改错Gc510.Frm属性设置:Command1、Command2的Caption属性分别设置为:计算&S、结束&XCommand1_Click*原语句If Text1.Text = "" Then 改为If Text1.Text <> "" ThenCommand2_Click*原语句Exit 改为 End填空Tk510.Frm( 1 ) b^2 – 4 * a * c ( 2 )Sqr(abs(d))属性设置:Command1、Command2的Caption属性分别设置为:定义坐标系统&S、绘正弦曲线&X Command1_Click*原语句Form1.Scale (-8, 2)+(8, -2) 改为Form1.Scale (-8, 2)-(8, -2)Command2_Click*原语句x = 1: y = Sin(i) 改为 x = i: y = Sin(i)填空Tk535.Frm( 1 ) num Mod 6 = 2 And num Mod 5 = 3 ( 2 )Text1.SetFocus改错Gc536.FrmForm_Click*原语句arr(i) = 20 + 80 * Rnd(-1) 改为arr(i) = 20 + 80 * Rnd(1)*原语句s = s + arr(1) 改为 s = s + arr(i)填空Tk536.Frm( 1 ) a ^ 2 + b ^ 2 = c ^ 2 ( 2 )Text1.Text = n改错Gc561.FrmForm_Click*原语句sum = 0 改为sum = 1*原语句sum = 1 / kk 改为 sum = sum + kk填空Tk561.Frm( 1 ) rnd * 201 + 100 ( 2 )s + a(i)改错Gc562.Frm属性设置:Command1、Command2的Caption属性分别设置为:运行、清理Command1_Click*原语句List1.List i & "=" & Sqr(i) & "^2" 改为List1.AddItem Sqr(i) & "^2" Command2_Click*原语句Text1.Focus 改为 Text1.SetFocus填空Tk562.Frm( 1 ) P(I) + P(J) + P(K) = N ( 2 )Idx = Idx + 1改错Gc587.Frm属性设置:Command1的Caption属性设为:开始计数;Timer1的Interval属性设为:1000C1_Click*原语句 Timer1.Enabled = True 改为 T1.Enabled = TrueT1_Click*原语句Text1.Text = Text1.Text + 10 改为 Text1.Text = Text1.Text + 1填空Tk587.Frm( 1 ) 32 ( 2 )String(1, Asc(b) + n)改错Gc588.FrmCommand1_Click*原语句 Item = 0 改为 Item = 1*原语句 Sum = Sum + Item 改为 Sum = Sum + I/Item填空Tk588.Frm( 1 ) End ( 2 )Text1.Text = ""改错Gc613.Frm属性设置:Form1的Caption属性设为:个人爱好;Command11的Caption属性设为:显示Command1_Click*原语句 If Check2.Value = 0 改为 If Check2.Value = 1Command2_Click*原语句 Then s = Check3.Caption 改为 Then s = s + Check3.Caption填空Tk613.Frm( 1 ) x >= 0 ( 2 )x < aminCommand1_Click*原语句 n = 1 改为 n = 0*原语句Text1 = s 改为 Text1 = n填空Tk614.Frm( 1 ) i+1 ( 2 ) s改错Gc639.Frm属性设置:Forma1的Caption属性设为“书籍采购计划”,Command1、Command2的Nmame属性设为:cmdAdd 和cmdDeleteCommAdd_Click*原语句 lstBook.AddItem = txtBook.Text 改为 lstBook.AddItem txtBook.TextCmdDelete_Click*原语句If lstBook.ListIndex = -1 Then 改为 If lstBook.ListIndex > -1 Then填空Tk639.Frm( 1 ) Rnd * 4 + 1 ( 2 )"S(" & I & ")=" & S(I)改错Gc640.FrmCommand1_Click*原语句 s = s + i 改为 s = s + i^2或 s = s + i*iCommand2_Click*原语句Release Me 改为 Unload Me填空Tk640.Frm( 1 ) f * i ( 2 ) Unload改错Gc666.Frm属性设置:Form1的Caption属性设为:加法器;Label1的Caption属性设为:+Command1_Click*原语句 Timer1.Enabled = True 改为 T1.Enabled = TrueCommand2_Click*原语句Text3 = Text1 + Text2 改为 Text3 = Val(Text1) + Text2填空Tk666.Frm( 1 ) i \ 100 ( 2 )i - hundred * 100 - ten * 10改错Gc667.FrmCommand1_Click*原语句 m = 1 改为 m = 0*原语句n = n + m 改为 n = n + 1填空Tk667.Frm( 1 ) P * j ( 2 )S + P改错Gc692.Frm属性设置:Form1的Caption属性设为:字幕滚动;Command11的Caption属性设为:手动Command1_Click*原语句 Form1.Timer1.Enabled = True 改为 Form1.Timer1.Enabled = FalseCommand2_Click*原语句Else下面的 Form1.Timer1.Enabled = False 改为 Form1.Timer1.Enabled = True填空Tk692.Frm( 1 ) TOTAL = 0 ( 2 )Sqr(L * (L - A) * (L - B) * (L - C))改错Gc693.FrmCommand1_Click*原语句sum = sum + 1 / item 改为 sum = sum + i / item*原语句Text1.Text1 = Str(sum) 改为 Text1.Text = Str(sum)填空Tk693.Frm( 1 ) a(i) ( 2 )i = 5 To 1 Step -1属性设置:Form1的Caption属性设为:字幕放大;Timer1的InterVal属性设为:200 Command1_Click*原语句 Timer1.Enabled = False 改为Timer1.Enabled = True*原语句 Timer1.Enabled = True 改为Timer1.Enabled = False填空Tk728.Frm( 1 ) n + 1 ( 2 )n - 1改错Gc729.FrmCommand1_Click*原语句item = item + j 改为 item = item * j*原语句sum = item 改为 sum = sum + item填空Tk729.Frm( 1 ) For i=0 to 1000 step 2 ( 2 ) Str(sum)改错Gc756.Frm属性设置:Command1的Name、Caption、Left和Top属性分别设为:cmd1、移动、0、0 Command1_Click*原语句cmd1.Left = Left + 100 改为 cmd1.Left = cmd1.Left + 100*原语句Top = cmd1.Top + 100 改为 cmd1.Top = cmd1.Top + 100填空Tk56.Frm( 1 ) Val(Txt1.Text) ( 2 ) num * rmb改错Gc757.Frm属性设置:Command1_Click*原语句Item = 0 改为 Item = 1*原语句 Sum = Sum + Item 改为 Sum = Sum + 1 / Item填空Tk757.Frm( 1 ) b^2 – 4 * a * c ( 2 ) b / (2 * a)改错Gc784.Frm属性设置:Command1的Name、Caption属性分别设置为Cmd1、开始计时Private Sub Form_Load()*原语句 Timer1.Interval = 100 改为 Timer1.Interval = 1000Private Sub Timer1_Timer()*原语句 Label2(0).Caption = Timer1 改为 Label2(0).Caption = Time填空Tk784.Frm( 1 ) x ( 2 )Form1.Text1.ForeColor改错Gc785.FrmCommand1_Click*原语句Item = 0 改为 Item = 1*原语句 Sum = Sum + Item 改为 Sum = Sum + i / Item填空Tk785.Frm( 1 ) s + i^2 ( 2 ) End。

vb程序改错和程序设计

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分)'题目:(事件)双击窗体。

VB程序改错40题含答案

VB程序改错40题含答案

【程序改错】题目:该程序实现将输入的 0 - 255 之间的正整数转换成二进制数Option ExplicitPrivate Sub Form_Click()Const n = 8Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox("请输入一个 0 - 255 之间的正整数:"))Print xFor m = 1 To na(m) = x Mod 2x = x / 2Next ms = " "For m = n To 0 Step -1s = Str(a(m))Next mPrint sEnd Sub答案:=======(答案1)=======For m = 0 To n=======(答案2)=======x= x \ 2=========或=========x= int(x/2)=======(答案3)=======s = s + Str(a(m))第3题(1.0分)题号:463'【程序改错】'题目:以下程序功能是输入三个数,由大到小排序。

Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click()Dim nTemp As IntegerA = Val(InputBox("Please input first integer", "输入正整数"))B = Val(InputBox("Please input second integer", "输入正整数"))C = Val(InputBox("Please input third integer", "输入正整数"))If A <= C ThennTemp = AA = BB = nTempEnd IfIf B <= C ThennTemp = AA = CC = nTempEnd IfIf A <= B ThennTemp = BB = CC = nTempEnd IfPrint "The integers in order is"; A; B; CEnd Sub答案:=======(答案1)=======If A <= B Then=========或=========If B >= A Then=======(答案2)=======If A <= C Then=========或=========If C >= A Then=======(答案3)=======If B <= C Then=========或=========If C >= B Then第4题(1.0分)题号:127'【程序改错】'题目:下面程序可输出如下图形:' *' ***' *****' *******' *********'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4m = 1s = "*"For i = 5 To 1 Step -1Print Spc(n)For j = 1 To 2 * m - 1Print s;Next jPrintn = n + 1m = m - 1Next iEnd Sub答案:=======(答案1)=======Print Spc(n);=========或=========Print Spc(i);=========或=========? Spc(n);=========或=========? Spc(i);=======(答案2)=======n = n - 1=========或=========n = - 1+n=======(答案3)=======m = m + 1第5题(1.0分)题号:469'【程序改错】'题目:已知一个函数f(x)=1000*sin(x),利用绘图方法' 在图片框中显示其图形。

VB程序设计复习题及答案

VB程序设计复习题及答案

中南大学现代远程教育课程(专科)考试复习题及答案《VB程序设计与应用》一、选择题:在每小题给出的四个选项中,只有一项是符合题目要求的,请把所选项前的字母填在题后的括号内。

1. Visual Basic程序中分隔一行中各语句的字符是()。

[ ]A)‘B):C)\D)_2. 下列可作为Visual Basic的变量名的是()。

[ ]A: Filename B: A(A+B)C: A%D D : Print3. 要让菜单项无效,应将()属性值设置为False。

[ ]A. VisibleB. EnabledC. MoveableD. Checked4. 以下过程是()事件。

Prviate Sub Form_Load( )……End Sub [ ]A: 命令按钮的单击B: 命令按钮的装载C; 窗体的装载D: 窗体的单击5. Vb中描述文件扩展名的是()属性。

[ ]A: Drive B: PatternC: FileName D: Path6. 关于Visual Basic中事件的说法中,不正确的为()。

[ ]A)事件是由Visual Basic预先定义好的,能够被对象识别的动作B)DblClick(双击)是Visual Basic中的一种事件C)一个对象可以识别一个或多个事件D)对于一个系统提供的对象可以识别哪些事件,需要程序员自己定义7. 下列控件中可设置滚动条是()。

[ ]A. 检查框(复选框)B. 框架C. 文本框D. 标签框8. 在Visual Basic中建立一个空窗体,( )不会是其默认名。

[ ]A. Form1B. Form2C. FormxD. Form109. Const One&=1,则One为()类型的常数。

[ ]A)整型B)字节型C)长整型D)单精度型10. 关于逻辑型数据,下列说法错误的是()。

[ ]A. 逻辑型数据只有两种可能值:True或者FalseB. 当把逻辑值转换为数值时False转为0,True转为1C. 当把其他类型数据转换为逻辑数据时,非0数转换为True,0转换为FalseD. 逻辑型数据以2个字节存储11. 以下()不是Visual Basic的特点。

计算机等级考试二级VB程序设计填空题

计算机等级考试二级VB程序设计填空题

计算机等级考试二级VB程序设计填空题不论从事何种工作,如果要想做出高效、实效,务必先从自身的工作计划开始。

有了计划,才不致于使自己思想迷茫、头脑空洞,不知从哪里着手开展工作。

下面是小编搜索整理的计算机等级考试二级VB程序设计填空题,供大家参考学习!计算机等级考试二级VB程序设计填空题填空题(每空1分,共20分)1.VB是一种面向 [ 1 ] 的可视化程序设计语言,采取了_[ 2 ]_的编程机制。

2.算术表达式 |x+y|+35 写成VB表达式的形式为 [3 ] 。

3.使文本框可以获得焦点的方法是 [ 4 ] 。

4.Inputbox函数的返回值是[5] 类型,Msgbox函数的返回值是[6] 类型。

5.在调用自定义函数时,参数的传递有 [ 7 ] 和 [ 8 ] 两种形式。

6.在如下数组声明语句中 Dim s(4,4) As Integer,第一个数组元素的引用形式是 [9 ] 。

7.如果要每隔0.5 s触发一个Timer事件,则Interval属性应设置为 [ 10 ] 。

8.单选按钮和复选框都有Value属性,但二者该属性值的类型不一样,其中单选按钮该属性值类型为[ 11 ] ,复选框该属性值类型为[ 12 ] 。

9.要在程序中显示通用对话框,要对CommonDialog控件的[ 13 ] 属性赋以正确的值。

10.VB提供了三种访问文件的模式,按照访问模式可以把文件分为顺序文件、 [ 14 ] 和二进制文件。

11.使用Line方法画矩形,必须在指令中使用关键字 [ 15 ] 。

12.窗体上有一命令按钮,程序运行时,决定该按钮是否可用应设置的属性是 [ 16 ] ,决定该按钮是否显示应设置的属性是 [ 17 ] 。

13.VB程序设计语言具有结构化程序设计的三种基本结构,即[18 ]、 [19 ] 、[20 ] 。

答案:[1]对象[2] 事件驱动[3]Abs(x+y)+3^5[4]SetFocus[5]字符型[6] 数值(整型)[7] 传值[8] 传址[9]S(0,0)[10]500ms[11] 逻辑型[12] 数值型(整型)[13]Action[14]随机文件[15]B[16]Enabled[17]Visible[18]顺序结构[19] 选择结构[20]循环结构1.计算机等级考试二级VB程序设计题2.计算机等级考试二级VB程序设计模拟试题3.计算机等级考试二级VB考试题及答案4.计算机等级考试二级VB考点:VB的过程设计5.2017计算机考试二级VB语言程序设计考试大纲6.计算机等级考试二级VB考点:程序调试7.计算机等级考试二级VB考点:窗体的常用方法8.计算机等级考试二级C语言程序设计考试大纲9.计算机等级考试二级VB考点:数组的概念10.计算机等级考试二级VB考点:常用文件操作语句和函数。

VB程序设计练习册参考答案

VB程序设计练习册参考答案

参考答案第1章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时,各窗体在屏幕上的显示位置6 内部(标准)7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或?“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、(1)建立应用程序用户界面。

选择”新建”工程,进入窗体设汁器,在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。

(2)设置对象属性,见表。

(可自由设置)3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示:Ucase、Lcase的使用2.提示:属性设置中,“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示:(1)流程图。

VB程序设计题型示例答案

VB程序设计题型示例答案

Visual Basic6.0程序设计题型示例参考答案一、选择题(每小题中只有一个选项是正确的)1.A2.C3.C4.C5.D6.B7.D8.B 9.A10.A11.C12.B13.D14.D15.A16.C 17.B18.A19.A20.D21.A22.A23.C24.C 25.A26.C27.D28.D29.C30.C31.C32.B 33.B34.C35.B36.C37.D38.D39.C40.C 41.C42.D43.B44.A45.C46.C47.B48.D 49.D50.D51.B52.C53.B54.D55.D56.C 57.A58.D59.A60.A61.D62.C63.A64.C 65.A66.D67.D68.A69.C70.A71.A72.D 73.C74.A75.D76.B77.D78.B79.A80.B 81.C82.A83.B84.D85.B86.B87.B88.B 89.B90.C91.C92.A93.A94.D95.C96.C 97.D98.C99.D100.D101.A102.D103.D104.C 105.C106.C107.A108.A109.D110.A111.A112.D 113.B114.B115.C116.B117.B118.B119.B120.D 121.C122.B123.D124.C125.C126.D127.D128.D 129.D130.C131.D132.B133.C134.A135.D136.C 137.A138.A139.C140.A141.B142.B143.C144.B 145.A146.A147.B148.D149.D150.B151.D152.C 153.D154.A155.B156.D157.B158.D159.C160.A 161.B162.A163.A164.C165.A166.D167.D168.A 169.D170.A171.B172.D173.A174.C175.D176.B 177.B178.B179.C180.A181.B182.B183.D184.D 185.B186.A187.A188.A189.D190.D191.B192.B 193.B194.A195.B196.D197.C198.B199.C200.D第四部分参考答案201.B202.D203.D204.A205.B206.C207.A208.C 209.B210.B211.B212.C213.D214.D215.B216.D 217.B218.A219.D220.D221.B222.C223.D224.D 225.C226.D227.C228.B229.C230.B231.A232.C 233.A234.B235.D236.C237.A238.B239.C240.B 241.C242.B243.C244.B245.D246.B247.C248.B 249.C250.C251.D252.D253.D254.C255.D256.B 257.B258.A259.B260.B261.C262.A263.B264.B 265.B266.C267.D268.B269.A270.A271.A272.B 273.D274.B275.A276.A277.C278.C279.D280.D 281.B282.A283.C284.A285.D286.B287.C288.A 289.A290.B291.D292.A293.C294.B295.D296.D 297.B298.D299.D300.D301.B302.C303.B304.B 305.D306.B307.C308.B309.A310.A311.B312.D 313.D314.C315.D316.D317.B318.C319.B320.A 321.B322.D323.D324.A325.B326.A327.A328.C 329.C330.B331.A332.C333.B334.D335.B336.D 337.A338.B339.C340.A341.C342.A343.B344.A 345.D346.C347.D348.B349.C350.C351.D352.D 353.B354.C355.A356.D357.A358.D359.D360.C二、判断题1.√2.×3.√4.√5.√6.√7.×8.×9.√10.√11.√12.√13.√14.×15.√16.√17.√18.×19.×20.√21.×22.√23.×24.√25.√26.√27.√28.×29.√30.√31.√32.√33.√34.√35.√36.×37.×38.×39.×40.√41.√42.×43.√44.√45.×46.√47.×48.×49.×50.√51.√52.√53.√54.×55.√56.√57.√58.×59.×60.×61.√62.√63.×64.×65.√66.×67.√68.×69.√70.√71.√72.×73.×74.×75.×76.×77.×78.×79.√80.×81.×82.√83.×84.√85.√86.×87.√88.√89.×90.√91.√92.√93.×94.√95.×96.×97.√98.×99.×100.√三、名词解释题1.对象是系统中的基本运行实体。

VB程序设计试题题库及答案

VB程序设计试题题库及答案

VB 程序设计笔试题题库选择题F 列常量中,是Integer 类型常量的是( C )。

A 、 123& B 、 -38844C 、 123%D 、 32768面选项中 () 是字符连接运算符 . ( A )A 、 &B 、 AndC 、 %D 、 Mod 下面关 于 VB 的 集成 开发 环境( IDE ) 的叙 述中, 不正 确的 是 B IDE 是设计、调试、运行vas 序的工具。

用户不能随意关闭IDE 中的窗口。

" 窗体设计 " 窗口是用来设计应用程序界面(窗体)的。

打开/关闭各窗口的命令主要在IDE 的”视图"菜单中。

A 、 B 、 C 、 D 、表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A 、 B 、 C 、 D 、 赋值语句 A=123 +)。

A、 B 、Clen ( “程序设计”)=(C 52 6 10 7 0 2 4Mid$(“123456”,3,执2)行后,A= ( A )。

A 、157B 、12334C 、123D 、"12334"在一个语句内写多条语句时, 用来分隔每条语句的符号是( C ).A 、,B 、;C 、:D 、、8将逻辑型数据转换成整型数据时,转换规则是( A 将True 转换为1 B 将True 转换为1 C 将True 转换为0 D 将True 转换为-19 表达式2+3*4八5-SIN(X+1)/2中最先进行的运算是 SIN 4八5 3*4x+1,将False 转换为0 ,将False 转换为-1 ,将False 转换为-1 ,将False 转换为0A 、B 、C 、D 、 )。

).10如果x=2 ,则表达式x+1>2 Or sin(x)>0.9 ( B )。

A不能计算B、TrueC、5D、False11随机产生[10,50] 之间整数的正确表达式是( A、Round( Rnd*50)B、Int(Rnd*40+10)C、Round( Rnd*51)D、10+Int(Rnd*41)12每建立一个窗体, 工程管理器窗口中就会增加一个A类模块文件B工程文件C窗体文件D程序模块文件13INT(100*RND(1)) 产生的随机整数的闭区间是( A、B、C、D、[1,100][0,99][0,100][1,99]And 3>x+3 的值)。

VB程序设计(复旦出版社)习题答案

VB程序设计(复旦出版社)习题答案

VB程序设计(复旦出版社)习题答案项目一习题参考答案一、选择题1.A2.ABD3.A4. B5.BCD6.C7.D8.C9.B 10.C 11.AB 12.ABD 13.D 14.A 15.BC 16.C 17.B 18.C 19.BD二、填空题1.属性2.窗体3.代码4.冒号5.退出(&X)6.Image7.Cursor 8. GotFocus 9. Click 10. 使大小相同11. F5 12. MultiLine 13. SelStart 14. LTrim15. Xor 16.# 17.Single 18.Option Explicit On19.(x1*y2+2*z)^6 20.x Mod 3 = 0 Or x Mod 5 = 021. 15 22.Left(Trim(Text1.Text),2)="VB"项目二习题参考答案一、选择题:1. D2. C3. C4. B5.BCD6.ABD7.ABD 8.C 9.C 10.C 11.A 12.ACD 13.ABC 14.ABD 15.C 16.C 17.A 18.C 19.BCD 20.ACD 21.ACD二、程序填空题1. ①“str的值是在(0,5)内”②“提示信息”2.① m \ 100 ② (m - a * 100) \ 10 ③ Str(c * 100 + b * 10 + a)3.①100 ②Left4.①Chr(Asc(e.KeyChar)) = "(" ②Chr(Asc(e.KeyChar)) = ")"③num = 0 ④num > 0 5.①Trim(TextBox3.text) ②TextBox2.Focus6.①(a = (b Mod 10)) Or (a = (b Mod 100)) Or (a = (b Mod 1000))7.①Len(RTrim(strin)) ②Mid(strin, i, 1) ③Chr(chasc)8.①Mid(TextBox1.Text, i, 1) ②CurC9.①t = 0②t = t * 10 + a10.①1 To 9 ②i ^ 3 + j ^ 3 + k ^ 3三、程序改错题1. Label3.Text = Int(Rnd() * 99) + 1,除数不能为0.2. y = c & b & a3. If n >= 1 And n <= 50 Then项目三习题参考答案一、选择题1.A 2.C 3.D 4.B 5.B 6.A 7.C 8.D 9.B 10.A 11.B 12.D二、填空题1.0 2.Preserve 3.24 4.外5.6三、程序填空1.⑴0 ⑵step 2 ⑶i + 2 ⑷(n \ 2) * 2 2.(1)0 ⑵UBound(a)(3)a(i) > 0 ⑷s2+a(i)3.⑴9 To 0 Step -1 ⑵A(0) = b ⑶mod4.(1) A(i) = key (2) A(j-1) = A(j) (3) Preserve A(n - 1)项目四习题参考答案一、单选题1. A2.A3. B4. C5.A6.A7.D8.C二、多选题1. A B A B C 3.B C D 4.C D三、填空题1. 不被改变2.窗体模块声明段中3.ublic4.不被初始化5.位置四、程序填空1. addsum = x + y2. x = y3. (1) max = x(i)(2) Call Amax(k, m)4.在代码窗口的窗体模块声明段中声明:Dim x As Integer, y As Integer项目五习题参考答案一、选择题1. B2. A3. B4.B5.C6.C7.C8.A9.A 10.D 11.C 12.C 13.D 14. C 15. A 16. A 17. B二、填空题1.(1)TabIndex (2)02. Enabled3. SmallChange4. Sorted5. -16. Remove7. Add8. Min9. LargeChange10. SmallChange11. 212. 613. 组合框或者:ComboBox14. Text 或者:文本15. 300016. Clear17. Interval18. ComboBox1.Items.Remove(ComboBox1.Items(2))19. (1)"Text Files(*.txt) |*.txt" (2) OpenFileDialog1.FileName 项目六习题参考答案一、选择题1. A2. D3. C4. B二、填空题1.下拉菜单弹出式菜单2.项目属性应用程序3.e.shift4.ContextMenu项目七习题参考答案一、选择题1.D2.C3.B4.B5.B6.C7.D8.A9.A 10.D11.C 12.B 13.B 14.D 15.A 16.A 17.C 18.C二、填空题1.对象(或object)2.class3.new4.类型.名称5.protected.private.friend6.继承(或inherit)7.is-a或继承.has-a或合成8.public9.Mybase 10.复用项目八习题参考答案一、选择题1. A2. C3. D4. C5. A6. B7. C8. B9. D 10. A 11. B 12. B 13. C D 14. B 15. A 16. C 17. C 18. A二、填空题1. ASCⅡ码文本编辑软件2.不等长文件顺序批量处理3. Output、Append Input4. 1~5115.模块Public Private6.定长字符串7. 等长有惟一的记录号记录号对该记录读写 8. 将返回文件的字节数 9. 将返回一个表示文件指针是否到达文件末尾的值三、程序填空题1.(1) FileOpen(1, "D:\students.txt", OpenMode.Output)(2) Write(1, s.s_name, s.s_sex, s.s_birthday, s.s_score)(3) FileClose(1)2.(1) FileOpen(1, "D:\students.txt", OpenMode.Input)(2) Not EOF(1)(3) Input(1, str)3.(1) UCase(Trim(TextBox1.Text))(2) FileClose(1)(3) Write(1, TextBox1.Text)4.(1) StrIn = LineInput(2)(2) StrSort(StrIn)(3) Print(2, StrOut)t(4) ReDim(5) StrSort = StrSort & sArr(i) 5.(1) OpenMode.Input(2) OpenMode.Output(3) Not EOF(1)(4) str1 = LineInput(1)(5) FileClose()(6) Kill "C:\old.txt"6.(1) OpenMode.Append (2) OpenMode.Inpu7.(1) FilePut(1, xData)(2) FileGet(1, xData, i)项目九习题参考答案一、单选题1. A2. B3. D4. C5. C6. C7. A8. B9. A 10. C二、填空题1.CreateGraphics() 2. 画布 3. Dispose 4. 子类 5. SolidBrush6. 47. 38. Region9. System.Drawing 10. System.Drawing2D项目十习题参考答案一、单选题1. B2. D3.B4.A5.B6.C7.A8.B二、填空题1.select * from 基本情况 where 专业=’物理’2.命令对象(Command)3.连接对象(Connection)4. VB可以访问的数据库有以下3类:(1)Jet数据库。

程序设计语言VB综合设计题及答案[精选五篇]

程序设计语言VB综合设计题及答案[精选五篇]

程序设计语言VB综合设计题及答案[精选五篇]第一篇:程序设计语言VB综合设计题及答案《程序设计语言VB》综合设计题1.编制程序实现:在窗体上,单击按钮1,在文本框中动态显示当前时间;单击按钮2,则停止动态显示;单击按钮3,清除文本框内容。

提示:可用定时器控制时间,用系统函数Now显示时间(如Text1.Text = Now)。

2.编制程序:求出100-200之间所有可以被3整除的数的总和,将结果用消息框显示输出。

3.编制程序:利用输入框输入10个不同的整数,将它们从小到大排序,并打印输出。

4.编制程序实现:设计在一框架中包含三个复选框,只有当其1,3选中而2未选中时,才在Text1中显示“Hello”字符。

5.编一程序能实现在窗体上打印出如下图所示的图形。

A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 6.编一程序用于判断一正整数是否为素数。

(提示:只能被1和本身整除的正整数称为素数。

为了判断一个数n是不是素数,可以将n被2到sqr(n)之间的所有整数除,如果都除不尽,则n就是素数,否则n是非素数。

)7.选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序:少于1600元,免税;1601-5000元,征2%的税;多于5000元,超过部分征5%的税。

8.有a、b、c三个数,编一程序实现通过文本框给a、b赋值;再调用能完成a、b比较大小的子过程,用c将大数回传。

要求按值传送a、b。

9.编一程序用于求所有的“水仙花数”。

所谓“水仙花数”是指一个3位数,其各位数字立方和等于该数本身。

例如:153就是一水仙花数,因为153 = 13+53+33。

10.设计一弹出式菜单,用于设置窗体的背景色,背景色包含白色、黄色、红色三种颜色。

11.编写程序实现:输入三角形的三条边a,b,c的值,根据其数值判断能否构成三角形。

如果能,则判断三角形是否是直角三角形,若是则计算该直角三角形的面积。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 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个数中最大值。

相关文档
最新文档