当前位置:文档之家› VB程序设计复习题(归类)

VB程序设计复习题(归类)

VB程序设计复习题(归类)
VB程序设计复习题(归类)

《VB程序设计》综合复习资料

一、填空题:(第一章Visual Basic程序设计概述)

1、Visual Basic是一种面向_对象_的可视化程序设计语言,采取了__事件驱动__的编程机制。

2、在VB中工程文件的扩展名是_ Vbp ,窗体文件的扩展名是frm _,标准模块文件的扩展名是_ bas _。

3、执行“工程”菜单下的部件命令,可选择并添加ActiveX控件。

4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。

第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮,应该用_ Tabstop ___属性。

2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定,其大小由__ height _和_ width _属性决定。

3、利用对象的属性setfocus可获得焦点,对于一个对象,只有其visible属性和_ enabled __属性为true,才能接受焦点。

4、设置控件背景颜色的属性名称是_ backcolor __。

5、所有控件都具有的共同属性是__ name __属性。

6、一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是_ name和caption。

7、VB中的每个对象(控件)都有一组特征,这组特征称为_属性_,我们通过修改它可以控制对象的外观和操作。

8、通常情况下,VB中一个工程主要包括如下四个文件:窗体文件、工程文件、类模块文件和_标准模块文件_文件,后者的扩展名为.Bas,通常由Basic语言编写,是一个可共用的子程序。

9、VB有三种工作模式,分别是设计(Design)模式、_运行模式__和中断(Break)模式。

第三章1、一般可以使用____ Const ______关键字声明常量。

2、_ V ariant _类型也称变体类型,是一种通用的、可变的数据类型,它可表示或存储任何一种数据类型。

3、变量的声明分为两种方法:_隐式声明__和__显示声明__。、

4、在VB中,用_ option base _语句设定数组的下界,用ubound _和_lbound语句分别返回数组的上、下界。

5、在代码模块中加入Option Explicit的目的是_强制变量声明。

6、function aa (a1 as date,optional a2 as boolean) as single,写出optional命令的作用表示a2是一个可选参数__。

7、在VB中,我们用一个简单的_ End__语句就能实现退出程序。

8、生成消息框的命令是_Msgbox_,生成输入框的命令是Inputbox __。

9、通用对话框(commondialog)属activex控件,它可以显示多个标准对话框,包括打开/另存为、字体、打印等对话框,若要显示所有文件,则应设置其属性filter=_*.* __,若要使它显示为打印对话框,则应使用什么方法_、showprint __。

10、从字符串中任意位置截取字符的函数是_ Mid()__。

11、语句For j = 3 To 20 Step 3 使循环体执行了___6___次。

12、对于正在使用的动态数组Arraya(),要增加一个单元,但不能破坏数组内的数据,则应使用语句__ redim preserve arraya(ubound(arraya())+1)__。

13、在Visual Basic中声明静态变量的关键字是___ static___。

14、表达式10 Mod 6 \ 4的值为___0___。

15、表达式chr(Asc("a") + 5)的值为___f______。

16、VB中使用注释有2种方法,即__ rem_和__?______。

17、VB中的数据以四种形式存储:常量、_变量、数组和记录。

18、为了在VB中存储一个4行5列的二维矩阵,需要定义一个整型的数组,请把数组定义语句补充完整:Dim Juzhen(_1 to 4,1 to 5_) as Integer。

19、控件数组由一组相同类型的控件组成,这些控件共用一个相同的控件名,但是每个控件都有一个唯一的下标来区分,我们使用属性_ Index __来设置下标。

20、在过程调用中,实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式:按值传递和_按地址__。

21、为了保证程序中必须对变量的强制性定义,需要在代码模块的声明部分加入_ Option Explicit __语句。

22、分析For……Next循环结构的实例:For i = 5 To 30 Step 2 中,循环体一共执行了_13_____次。

23、表达式Mid("UniversityOfPetroleum", 8, 4) 的值为_ ityo__。

24、常量分为普通常量和_符号_常量。

25、要将大写字母转换为小写字母,可使用_ LCase__函数。

26、不管焦点在哪个控件上,按___ ESC__键相当于按了取消按钮。

27、执行“工程”菜单下的_部件__命令,可选择并添加ActiveX控件。

28、断点_是程序中VB停止执行的地方。

29、逻辑常量为True或__ False ___。

30、使用了_ Option Explicit __的声明后,当程序中使用未经声明的变量时,程序运行时会报错。

31、要将小写字母转换为大写字母,可使用UCase__函数。

32、自字符串N1位开始向右取N2个字符,要使用_ Mid__函数。

33、日期常量表示时,用符号___#___将日期型数据括起来。

34、局部变量只能在_过程_中声明和使用。

35、模块级变量的声明关键字是Dim或__ private ___。

36、函数Abs(x)的功能是_求x的绝对值____。

37、表达式3/6*5的值是_2.5___。

第四章1、向列表框控件添加新项目的方法是__ AddItem __。

2、在VB中,最主要的两种对象是_窗体___和__控件___。

3、当窗体启动时可通过StartUpPostion __属性控制窗体位于所有者的中心位置。

4、若要将窗体Form1隐藏起来,则可通过执行代码__ form1.hide __来实现。

5、要使装入到列表框中的数据项能自动按字母顺序排序,应设置该控件的___ sorted __ ____属性为___ ture ___。

6、窗体上放置了若干个文本框和命令按钮,当窗体装入后,要将焦点自动定位到文本框Text1上,则在设计时需要将__ text1__控件的_ tabindex __属性设置为__0____。

7、在标签控件中通过编程使文字换行用的代码是__ chr(10)__ _。

8、设置计时器控件只能触发___ timer ____事件。

9、设置计时器对象触发事件的时间间隔用__ interval ___属性。

10、滚动条控件主要支持两个事件,它们是__scroll和change__事件。

11、要使鼠标停留在按钮上显示特殊的鼠标形状,应设置的属性值是_ mousepointer _。

12、设某列表框共有10项,按题目要求补齐程序,完成相应的功能。

(1)按下命令按钮Command1时将列表框第8项的内容显示在窗体上:

Private Sub Command1_Click( )

List.__ selected __(7)=True

Print List1._ text _

End Sub

(2)单击列表框某一项时立即将该项打印在窗体上:

Private Sub List1_Click( )

Print___ list1.text ___

End Sub

(3)按下命令按钮Command1时在窗体上删除第1、3、5、7、9项:

Private Sub Command1_Click( )

For I=1 To 5

List1.__ removeitem 2*i-1__________

Next I

End Sub

(4)在列表框的每一项之后插入一个新的项:

Private Sub Command1_Click( )

For I=1 to 10

X=InputBox(“请输入插入的第” & I & “项内容”)

List1.AddItem__ x,2*i-1__________

Next I

End Sub

13、设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1,要使每次单击滚动条两端箭头时,或单击滚动条滑块与两端箭头之间的空白区域时,标签内容能够反映滚动条的值,补齐以下代码。

Private Sub Hscroll1.___ change ____( )

Label1.Caption = Hscroll1.___ value __

End Sub

要使拖动滚动条滑块时标签内容能够反映滚动条的值,补齐以下代码。

Private Sub Hscroll1.__ scrol ___( )

Label1.Caption = Hscroll1.__ value ____

End Sub

14、列表框(ListBox)用于列出可供选择的项目的列表,用户可以选择一个或多个项目。它具有几个非常重要的数组属性,其中__ List__属性存放了列表框中所有项目的值。

15、菜单项一般由标题、访问键、快捷键和复选标志等构成,通过对相应的属性进行设置可以改变这些项目的状态,其中与复选标志相对应的属性是__ Checked _。

16、keydown与keypress事件各有其参数,若需获得用户按下"a" 还是"A" 需用__ keypress ___事件。

17、控件组合框组合了文本框和列表框的功能,是VB中一种功能非常强大的选择类控件。

18、若需要将窗体Form2以模态窗口的形式显示出来,可通过执行代码_ Form2.Show 1__来实现。

19、菜单中的分隔条是一种菜单控件,不响应__ Click(或鼠标单击)_事件,不能被选中。

第五章1、文件按存取方式及其组成结构可分为_顺序__文件、随机__文件和、二进制____文件。

2、为了使文件列表框List1和目录列表框Dir1之间能产生同步效果,必须在_ dir1的chang __事件过程中加入语句_ list1.path=dir1.path __。

3、文件系统控件的作用是向用户显示系统中的文件,方便用户选择,它是一组控件的组合,包括:驱动器列表框、__目录列表框__和文件列表框。

第六章图形操作1、使用__ print __方法可在窗体中进行文本的输出,用_ circle __方法可画圆,用_ line

___方法可画直线。

2、用___ loadpicture ___函数可加载图形。

3、为了使一个Picture控件能自动根据装入的图片调整大小,应设置该控件的_ autosize ___属性为True。第七章面向对象的编程1、类是具有相同性质的对象的__集合_______。

2、语句DIM TEMP AS Object的作用是____定义了一个对象类型的变量TEMP _。

第三章VB基本语言

四、读程序题

1、分析以下程序,写出运行结果。

Private Sub Form_Click()

score = Int(Rnd * 10) + 80

Select Case score

Case Is < 60

A$ = "F"

Case 60 To 69

A$ = "D"

Case 70 To 79

A$ = "C"

Case 80 To 89

A$ = "B"

Case Else

A$ = "A"

End Select

Print A$

End Sub

结果如下:B

2、读下面的程序,分析其功能,写出运行结果。

在窗体上有一个命令按钮,名称为Command1。然后编写如下程序:

Private Sub Command1_Click()

For I = 1 To 4

For J = 0 To I

Print Chr$(65 + I);

Next J

Print

Next I

End Sub

程序运行后,如果单击命令按钮,则在窗体上显示的内容是什么?

结果如下:

BB

CCC

DDDD

EEEEE

3、阅读下面的程序,分析并写出其功能。

Sub insert(a() As Single,ByVal x As Single)

Dim m as integer,n as integer

n=1

Do While n<20 And x>a(n)

n=n+1

Loop

For m=20-1 To n Step –1

a(m+1)=a(m)

Next m

a(n)=x

End Sub

功能如下:

在20个由小到大排列的数据中插入一个数,插入数据后的数据仍按由小到大的顺序排列。

4、分析以下程序,写出运行结果。

Sub subP(b() As Integer)

For i =1 To 4

b(i)=2*i

Next i

End Sub

Private Sub Commandl_Click()

Dim a(1 To 4)As Integer

a (1)=5

a (2)=6

a (3)=7

a (4)=8

subP a()

For i =1 To 4

Print a(i)

Next i

End Sub

运行上面的程序,单击命令按钮,输出结果是什么?

输出结果为:

2

4

6

8

5、分析以下程序,写出运行结果。

Sub sele()

Dim n as Integer

i=21:n=3

Do While i>n

i=i-n

Loop

Print i

End Sub

输出结果为:

3

6、分析以下程序,写出运行结果。

Sub selectPrint()

Dim a as Integer

Dim b as Integer

Dim c as Integer

a=2:b=5:c=2

If(a>=b)and(a>=c) or (b>c) Then

Print a

a=a+2

Else

Print b

EndIf

Print a;b;c

End Sub

输出结果为:

2

452

7、分析以下程序,写出运行结果。

Sub swap()

Dim x as Integer

Dim y as Integer

Dim z as Integer

x=1:y=2:z=0

Print x;y;z

x=x+y

x=x*z

Print x,y,z

End Sub

输出结果为:

120

0 2 0

8、分析以下程序,写出运行结果。

Sub selectPrint()

Dim a as Integer

Dim b as Integer

Dim c as Integer

a=3:b=3:c=2

If(a>=b)and(a>c)Then Print a

Print a,b,c

End Sub

输出结果为:

3

3 3 2

第四章常用控件与窗体

1、对窗体编写如下代码:

Option Base 1

Private Sub Form_KeyPress(KeyAscii As Integer)

a = Array(237,126,87,48,498)

m1 = a(1)

m2 = 1

If KeyAscii = 13 Then

For i =2 To 5

If a(i)>ml Then

m1 =a(j)

m2 =i

End If

Next i

End If

Print m1

Print m2

End Sub

程序运行后,按回车键,输出结果是什么?

输出结果为:498

5

2、阅读下面的程序,写出执行结果。

Private Sub Form_load()

Form1.show

d = 0

For a = 1 To 2

For b = 1 To a

For c = b To 5

d = d + 1

Next c

Next b

Next a

Print d

End Sub

结果如下:

14

Private Sub Form_Click()

Dim a(10) As Integer,五、编程题

1、输入一年号,判断它是否是闰年。界面如下图所示,包括两个标签、一个文本框和一个命令按钮。提示:如果此年号能被400整除或者不能被400除尽,也不能被100除尽,但能被4整除,则它是闰年;否则,不是闰年。

1、参考代码如下:

Private Sub Command1_Click()

Dim year, x As Integer

year = Val(Text1.Text)

If year Mod 400 = 0 Then

Label2.Caption = "是闰年"

Else

' 下面是嵌套块If语句

If year Mod 4 = 0 And year Mod 100 <> 0 Then

Label2.Caption = "是闰年"

Else

Label2.Caption = "不是闰年"

End If

End If

End Sub

2、输入两个正整数m、n,求m和n的最大公约数。要求建立如下图所示的窗体,其中主要的控件包括:两个标签(Lable1、Lable2)、两个文本框(Text1、Text2)和一个按钮(Command1)。

2、程序参考代码如下:

Private Sub Command1_Click()

Dim m, n, r As Integer

m = Val ( Text1.Text )

n = Val ( Text2.Text )

If m < 0 Or n < 0 Then ‘若判断为非法数据,Then子句输出相应信息

Label2.Caption = "输入数据有错!"

Else ‘若判断为合法数据,Else子句用辗转相除法求余数

r = m Mod n

Do While r <> 0

m = n

n = r

r = m Mod n

Loop

‘循环结束后n中存放的就是最大公约数,输出n值

Label2.Caption = "最大公约数为:" & n

End If

End Sub

3、输入某学生成绩(百分制),若是100≥成绩≥90输出优秀;若是90>成绩≥80输出良好;若是80>成绩≥70输出中等;若是70>成绩≥60输出及格;若是60>成绩≥0,输出不及格;若是其他数则输出error信息。

3、参考代码如下:

Private Sub Command1_Click()

Dim x As Single

x = Val(Text1.Text)

If x > 100 Or x < 0 Then

Text2.Text = "error"

ElseIf x < 60 Then

Text2.Text = "不及格"

ElseIf x < 70 Then

Text2.Text = "及格"

ElseIf x < 80 Then

Text2.Text = "中等"

ElseIf x < 90 Then

Text2.Text = "良好"

Else

Text2.Text = "优秀"

End If

End Sub

4、在窗体中显示从9号字型到16号字型。

4、参考代码如下:

Private Sub Form_Load()

Dim i As Integer

Show '使输出可见

Form1.Font = "新宋体"

For i = 9 To 16 Step 1

Form1.FontSize = i

Print i; "号字型"

Next i

End Sub

5、在有序序列中插入一个数,使插入后的数列仍然有序(设按由小到大排列)。

5、参考代码如下:

Private Sub Command1_Click()

Dim a(1 To 11) As Single '定义静态数组a含11个元素

Dim i, j As Integer

Dim num As Single

' 给数组元素赋初值,即原始队列

a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 8: a(5) = 9

a(6) = 13: a(7) = 16: a(8) = 19: a(9) = 33

a(10) = 38

' 输出原始队列

For i = 1 To 10

Label2.Caption = Label2.Caption & a(i) & " , "

Next i

num = Val(Text1.Text)

' 把输入的数插入队列中

For i = 10 To 1 Step -1

If num < a(i) Then

a(i+1) = a( i ) ' 元素后移一个位置

else

a(i+1) = num

Exit For ' 退出循环

End If

Next i

' 输出新队列

For i = 1 To 11

Label3.Caption = Label3.Caption & a(i) & " , "

Next i

End Sub

6、编程实现二维数组转置。

6、参考代码如下:

Option Base 1

Private Sub Form_Load()

Const N = 4 ' 常量N决定二维数组大小

Dim a(N, N) As Integer

Dim i, j, Temp As Integer

Show

' 数组初始化

For i = 1 To N ' For循环 i从1变化到N

For j = 1 To N

a(i, j) = i * 10 + j

Next j

Next i

' 输出原始数组

Print "转置前的数组:"

For i = 1 To N ' For循环 i从1变化到N

For j = 1 To N

Print a(i, j);

Next j

Print

Next i

' 数组转置

For i = 1 To N ' For循环 i从1变化到N

For j = 1 To i ' 交换

Temp = a(i, j)

a(i, j) = a(j, i)

a(j, i) = Temp

Next j

Next i

' 输出转置后的数组

Print "转置后的数组:"

For i = 1 To N ' For循环 i从1变化到N

For j = 1 To N

Print a(i, j);

Next j

Print

Next i

End Sub

7、随机输入10个100以内的整型数,计算其和及平均值。

7、参考代码如下:

i As Integer

Dim sum As Integer, ave As Integer

sum = 0

For i = 1 To 10

a(i) = Int(Rnd * 101)

sum = sum + a(i)

Next i

ave = sum / 10

Print sum, ave

End Sub

8、找出所有的水仙花数。水仙花数是个三位数,它的各位数字的立方和等于这个三位数本身。例如371

=33+73+13,则371是水仙花数。

8、参考代码如下:

Private Sub Form_Load()

Dim i, j, k, Flower As Integer

Show

For i = 1 To 9

For j = 0 To 9

For k = 0 To 9

Flower = i * 100 + j * 10 + k

If Flower = i ^ 3 + j ^ 3 + k ^ 3 Then Print Flower ; "是水仙花数"

Next k

Next j

Next i

End Sub

9、从键盘输入一个大于2的正整数,判断该数是否是素数。

9、程序参考代码如下:

Private Sub Command1_Click()

Dim m, i, y As Integer

m = Val(Text1.Text)

If m <= 2 Then

Label2.Caption = "输入数据有错"

Else

k = Sqr(m) + 1

For i = 2 To k

y = m Mod i

If y = 0 Then Exit For

Next i

If y = 0 Then

Label2.Caption = m & "不是素数"

Else

Label2.Caption = m & "是素数"

End If

End If

End Sub

10、求二维数组中的最小值及其所在行号、列号。

10、程序参考代码如下:

Option Base 1

Private Sub Form_Load()

Const N = 5 ' 常数 N 确定数组的大小

Dim a(N, N) As Integer

Dim i, j, row, line, min As Integer

Show

For i = 1 To N ' For循环 i从1变化到N

For j = 1 To N ' For循环 j从1变化到N

a(i, j) = Int(100 * Rnd) + 1 ' 产生N*N个1~100间的随机数

Next j

Next i

' 输出二维数组

Print "数组内容是:"

For i = 1 To N

For j = 1 To N

Print a(i, j);

Next j

Print ' 输完一行元素后输出一个换行

Next i

' 设定初始值

min = a(1, 1): row = 1: line = 1

' 寻找最小数

For i = 1 To N

For j = 1 To N

If a(i, j) < min Then

min = a(i, j)

row = i

line = j

End If

Next j

Next i

' 输出结果

Print "最小值是:"; min

Print "在第"; row; "行第"; line; "列"

End Sub

11、求一元二次方程ax2+bx+c=0的根(包括实根和复根)。

11、参考代码如下:

Private Sub Command1_Click()

Dim a, b, c, delt, realpart, imagpart As Single

a = Val(Text1.Text):

b = Val(Text2.Text):

c = Val(Text3.Text):

delt = b * b - 4 * a * c

If a = 0 Then

Label2.Caption = "是一元一次方程:"

If b<>0 then

Text4.Text = "x1=" & -c / b

Else

If c=0 then

Text4.Text = "有无穷根"

Else

Text4.Text = "无根"

End if

End if

Else

' 下面嵌套块If语句

If delt = 0 Then

Label2.Caption = "有两个相等的实根:"

Text4.Text = "x1=" & -b / 2 / a

Text5.Text = "x2=" & -b / 2 / b

ElseIf delt > 0 Then

Label2.Caption = "有两个不等的实根:"

Text4.Text = "x1=" & (-b + Sqr(delt)) / (2 * a)

Text5.Text = "x2=" & (-b - Sqr(delt)) / (2 * a)

Else

Label2.Caption = "有两个共轭复根:"

realpart = -b / (2 * a)

imagpart = Sqr(-delt) / (2 * a)

Text4.Text = "x1=" & realpart & "+" & imagpart & "i"

Text5.Text = "x2=" & realpart & "-" & imagpart & "i"

End If ' 此行End If部分与内层的块If语句对应

End If ' 此行End If部分与外层的块If语句对应

End Sub

12、输入一个正整数n,计算出n!并输出。

12、参考代码如下:

Private Sub Command1_Click()

Dim n, i, t As Long

n = Val(Text1.Text)

i = 1: t = 1

If n < 0 Then

Label2.Caption = "error"

ElseIf n = 0 Then

Label2.Caption = "0!=1"

Else

Do While i <= n

t = t * i

i = i + 1

Loop

Label2.Caption = n & "!=" & t

End If

End Sub

13、Faibonacci数列为0,1,1,2,3,5,8,13 …,计算并输出第20项以及前20项的和。

13、参考代码如下:

Private Sub Form_Load()

Dim Prev, Last, NewOne, sum As Long

Dim i As Integer

Prev = 0: Last = 1: sum = Prev + Last

For i = 3 To 20

NewOne = Prev + Last

sum = sum + NewOne

Prev = Last

Last = NewOne

Next i

Label1.Caption = "第20项为" & NewOne

Label2.Caption = "前20项的和为" & sum

End Sub

第四章常用控件与窗体

五、编程题

1、在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1,要求每一秒在文本框中显示一次当前的时间,请编程实现。

1、参考代码如下:

Private Sub Form_Load()

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Txttime.text = Time

End Sub

2、在Text1中输入任一英文字母,在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值,如下图所示。

Text1

Command1

Text2

2、参考代码如下:

Private Sub Command1_Click()

Dim Char As String * 1

Char = Trim(Text1.Text)

Text2.Text = Text2.Text & Spc(5) & Char & _

Spc(10) & Str(Asc(Char)) & chr(13)&chr(10)

Text1.SetFocus

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

End Sub

3、编写一个程序,能够实现任意个整数的排序。

4、编程实现以下功能:用户首先分别在两个文本框中输入两个数,然后在具有“加、减、乘、除”等四个菜单项的“计算”菜单中单击某一项,即可在标签中显示出相应的结果或者错误提示。

5、编程实现任意两个数的“加、减、乘、除”。

6、编写一个程序,能够求任意个正整数的最大值和最小值。

7、编程求任意两个正整数的最大公约数。

六、程序分析填空题六、程序分析填空题

1、建立一个如图所示的简单编辑器。用户在文本框(text1)中输入正文后,选中某些文本时可进行“剪切”、“复制”和“粘贴”操作。假设在窗体声明部分定义了一个变量str1,用于保存复制和剪切的内容,请把剪切按钮(btnCut)的Click事件补充完整。

程序运行界面:

Private Sub btnCut_Click()

…请补充

Str1 = text1.selText

text1.selText = “”

End Sub

2、计算1 + 2 + 3 + …… + 100的和并输出。请把下面用Do While ……Loop循环结构实现这一功能的代码补充完整。

Private Sub Form_Load()

Dim sum,count as Integer

…请补充

Sum = 0

Count = 0

Do while count <=100

…请补充

Count = count + 1

Sum = sum + count

Loop

Text1.Text = sum

End Sub

3、列表框控件(ListBox)支持多项选择,这项功能在对用户的兴趣爱好进行调查的时候显得非常好用,在下图所示的界面中列表框List1用于列出爱好选项,供用户进行多项选择。

请把下列代码补充完整,能够取得用户的所选爱好选项:

Private Sub Command1_Click()

Dim i As Integer

Dim s As String

s = txtname.Text & "爱好"

For i = 0 To List1.ListCount - 1

…请补充

If List1.Selected(i) Then

S = s & List1.List(i)

End If

Next

Label3.Caption = s

End Sub

4、要求利用计时器Timer1,在窗体Form1上每隔1秒钟打印一个1到10的随机整数,请把下列代码补充完整:

Private Sub Form_Load()

Show

…请补充

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

…请补充

Form1.Print Int(Rnd*10) + 1

End Sub

第五章文件

四、编程题

1、实现二进制方式文件的复制。

1、参考代码如下:

Private Sub Command1_Click()

Dim if1 As Integer, if2 As Integer

Dim sf1 As String, sf2 As String

Dim buffer() As Byte …使用动态数组

sf1 = InputBox("请输入源文件名:", "源文件")

sf2 = InputBox("请输入目标文件名:", "目标文件")

If sf1 = "" Or sf2 = "" Then Exit Sub

if1 = FreeFile

Open sf1 For Binary As if1 '打开源文件

if2 = FreeFile

Open sf2 For Binary As if2 '创建目标文件

ReDim buffer(1 To LOF(if1)) '分配内存

Get #if1, , buffer '读源文件

Put #if2, , buffer '写目标文件

Close '关闭所有打开的文件

MsgBox "完成复制。"

End Sub

2、如下图所示,实现一个简单的文件管理器。

2、参考代码如下:

Private Sub cmdCopy_Click()

Dim destFile As String

If fSource.FileName = "" Then Exit Sub '先选定文件

destFile = InputBox("输入目标文件名:")

If destFile <> "" Then '不为空

FileCopy fSource.FileName, destFile '复制文件

End If

End Sub

Private Sub cmdExit_Click()

End

End Sub

Private Sub cmdKill_Click()

Dim res

If fSource.FileName = "" Then Exit Sub '首先选定文件

res = MsgBox("确定要删除文件" & fSource.FileName & " 了吗?", vbOKCancel)

If res = vbOK Then ' 确认操作

Kill fSource.FileName '删除文件

End If

End Sub

Private Sub cmdName_Click()

Dim destFile As String

If fSource.FileName = "" Then Exit Sub '首先选定文件

destFile = InputBox("输入新文件名:")

If destFile <> "" Then

Name fSource.FileName As destFile '命名(移动)文件

End If

End Sub

Private Sub dirSource_Change()

fSource.Path = dirSource.Path '与文件列表关联

End Sub

Private Sub drvSource_Change()

dirSource.Path = drvSource.Drive '与文件夹关联

End Sub

第六章图形操作

四、编程题

1、如下图显示当前目录下的图片文件列表,并能够预览选定的图片。

1、参考代码如下:

Private Sub drvList_Change()

dirList.Path = drvList.Drive ' 设置当前驱动器End Sub

Private Sub dirList_Change()

fileList.Path = dirList.Path ' 设置当前目录

End Sub

Private Sub fileList_Click()

Dim s As String ' s为所选文件的全称

If Right(fileList.Path, 1) = "\" Then

s = fileList.Path & fileList.FileName

Else

s = fileList.Path & "\" & fileList.FileName

End If

Label4.Caption = s

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件,即 C ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的 D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时,在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去,其实现的方法是 D 。 12、以下选项中,不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后,Visual Basic将显示的窗口是 A 。 A.代码窗口 B.工具箱 C.项目(工程)窗口 D.属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句: Strl=InputBox("输人","","练习") 从键盘上输人字符“示例”后,Strl的值是 D 。 A.“输入” B.“” C.“练习” D.“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间,需设置的属性是 C 。 A.Enabled B.Value C.Interval D.Text 19、能够改变复选框中背景颜色的属性是 C 。

《VB程序设计》期末考试试卷(A)附答案

******学院 2009-2010学年第二学期 《VB程序设计》期末考试试卷(A)附答案 一、选择题(2分/题,共60分) (1)要设置窗体上各控件的属性,可以在___中进行。 A“窗体布局”窗口B“工程资源管理器”窗口 C“属性”窗口D“对象”窗口 (2)下面程序段___能够正确实现目的:如果x

(5)双击窗体中的对象后,VB将显示的窗口是___。 A工具箱B“工程”窗口 C“代码”窗口D“属性”窗口 (6)下列程序段的执行结果是___。 X=int(Rnd()+4) Selectcasex Case5 Print“优秀” Case4 Print“良好” Case3 Print”通过” Caseelse Print”不通过” Endselect A优秀B良好 C通过D不通过 (7)下列哪个不是窗体的属性___。 ACaptionBText CControlBoxDBorderStyle (8)设组合框Combo1中有3个项目,则以下能删除最后一项的语句是___。 ACombo1.RemoveItemTextBCombo1.RemoveItem2 CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount (9)窗体BorderStyle属性的功能是___。 A设置窗体的边框大小 B设置窗体的边框样式,是否显示标题栏,是否可以调整大小等 C决定是否显示窗体的控制菜单图标与状态控制按钮 D决定窗体的最大化或最小化按钮是否有效 (10)下列可作为VB的变量名的是___。

VB程序设计试题与答案-1资料

《VB程序设计基础》试题 一、选择题:(每空 2 分,共 20 分) 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言,构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”,表达式Right(S,1)+Left(S,1)+Mid(S,2,1)的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式,正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框,所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT(100*RND)产生的随机整数的闭区间是_____________。 A.[0,100] B.[1,100] C.[1,99] D.[0,99] 9. 一个数组说明为Dim a(0 to 5,1 to 5) As Integer,则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。

《程序设计基础》试卷B及答案

黄淮学院计算机科学系2007-2008学年度第一学期 期末考试《程序设计基础》B 卷 注意事项:本试卷适用于计科系06级本科计算机科学与技术专业学生。 1.__ ____函数是程序启动时惟一的入口。 2.算法的复杂性包含两方面: 和 。 3.已知 char c= 'a' ; int x=2,k; 执行语句k=c&&x++ ; 则x 为 ,k 为 。 4.数值0x34对应的十进制为 。 5.已知int a ; 则表达式”(a=2*3 , 3*8), a*10”的结果为_ _ ____,变量a 的值为___ ___。 6.面向对象程序开发步骤为: 、 和面向对象实现。 1.下列程序设计语言中( )是面向对象语言。 A. FORTRAN B. C 语言 C. C++ D. 汇编语言 2.下列关于注释的说法哪个是错误的( )。 A. 注释不是程序中的可执行语句 B. 注释对于程序的执行有很重要的意义 C. 注释将在程序的编译阶段被编译器剔除 D. 编程时在程序中添加适当的注释是一个良好的编程风格 3.算法设计应该遵守( )的设计原则。 A. 自底向上,逐步求精 B. 自顶向下,逐步求精 C. 自底向上,同步扩展 D. 自顶向下,同步扩展 4.下列语句执行后a 的值为( )。 int a=4, &z=a, k=3; a=k; z+=2; k++; A. 0 B. 4 C. 1 D. 5 5.以下程序执行后,屏幕输出为( )。 #include “iostream.h ” void fun(int d) {d++;} void main() { int d=3; fun(d); d++; cout<=’a ’)&&(d<=’z ’) B. ‘a ’<=d<=’z ’ C. (d>=’a ’)||(d<=’z ’) D. ‘A ’<=d<=’Z ’ 8.已知:int k=7, x=12; 则执行语句( )后x 的值为0。 A. x+=k-x%5; B. x+=(x-k%5); C. x%=(k-=5); D. (x-=k)-(k+=5); 9.运行下列程序,其输出结果为( )。 #include “iostream.h ” void main() { int x(5),y(5),z(5); y--&&++x&&z--||y++; cout<

VB程序设计期末考试复习题

VB复习题 一.选择题 1.使用声明语句建立一个数值型的变量后,VB自动将该变量初始化为(B)。 A.空值 B.0 C.1 D.Null 2.使用声明语句建立一个字符型的变量后,VB自动将该变量初始化为( A )。 A.空值 B.0 C.1 D.Null 3.使用声明语句建立一个布尔型的变量后,VB自动将该变量初始化为(A )。 A.False B.0 C.1 D.True 4.关于 VB 中的运算符,以下说法正确的是()。 A.“×”是算术运算符,含义是“乘法运算” B.“≠”是关系运算符,含义是“不等于” C.“!”是逻辑运算符,含义是“非” D.“And”是逻辑运算符,含义是“与” 5.对象的三要素是()。 A.属性、事件、程序 B.属性、事件、方法 C.窗体、事件、程序 D.语句、函数、程序 6.VB中,表达式10<2 Or Not 5>2+6的值为()。 A.TRUE B.FALSE C.0 D.出错 7.VB中,表达式Mid$("南京工程学院",3,4)的结果是()。A."工程学院" B."京工程学" C."程学院" D."工程" 8.在VB中,应用程序被称为()。 A.工程 B.窗体 C.属性 D.对象 9.VB中,事件Click由()引发。 A.移动鼠标 B.左键单击鼠标 C.双击鼠标 D.右键单击鼠标 10.VB中,隐藏窗体的方法是()。 A.Unload B.Stop C.Hide D.Show 11.在Visual Basic中最基本的对象是(),它是应用程序的基石,也是其它控件的容器。 A.文本框 B.命令按钮 C.窗体 D.标签 12.VB窗体文件的扩展名为()。 A.VBP B.FRM C.BAS D.EXE

VB程序设计期末模拟试卷

《VB程序设计》期末模拟试卷 一、单项选择 (b )1.被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A.方法、事件 B.事件、方法 C.事件、属性 D.过程、属性 ( c)2.下列________是Single型变量。 A.Time% B.Name$ C.Sheight! D.CXYZ& (a )3.以下四个VB的变量名中,合法的是____________。 A.X23 B.$Re C. Len

D.3xy ( d)4.在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后,下面正确的说法是________。 A. str1是整型,str2是长整型 B. str1是长整型,str2变体型 C. str1、str2都是长整型 D. str1是变体型,str2是长整型 (b )5.表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A.True B.False C.”&O3631AB” D.&O3631 (c )6.表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A.200、200 B.“100100”、“100100” C.200、“100100”

D.“100100”、200 (b )7.以下语句执行时,从键盘上输入Zhao,并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A.Input B.Zhao C.Name D.空字符串 (b)8.语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A.4 B.5 C.6 D.7 ( d)9.在窗体的通用段声明变量时,不能使用__________ 关键字。 A.Dim

程序设计基础试题库

练习题一Visual FoxPro 基础 、选择题 1. 关系数据库管理系统应能实现的专门关系运算包括___c __________ A 显示、打印、制表B关联、更新、排序 C 选择、投影、连接D排序、索引、统计 2. 关系是指__b__。 A 属性的集合B元组的集合 C 实例的集合 D 字段的集合 3. 如果把学生看成实体,某个学生的姓名叫“杨波”,则“杨波”应看成是___b ______ 。 A)属性型B )属性值C )记录型D )记录值 4. 关系数据库系统中所使用的数据结构是 _______ d ___ 。 A)图B )树C )表格D )二维表 5. 对表进行水平方向的分割用的运算是 _______ b ___ 。 A)交B )选择C )投影D )连接 6. 下列数据库技术的术语与关系模型的术语的对应关系中_______ d _____ 是正确的。 A)实例与关系 B )字段与元组C )记录与属性 D )记录类型与关系模式 7. 下列关于数据库系统的叙述中,正确的是 _____ c _____ 。 A)数据库系统中数据的一致性是指数据类型一致 B)数据库系统只是比文件系统管理的数据更多 C)数据库系统减少了数据冗余 D数据库系统避免了数据冗余 8. 关系数据模型 ______ d ___ 。 A)只能表示实体间的1:1联系 B)只能表示实体间的1:n C只能表示实体间的m:n D 可以表示实体间的上述三种联系 9. 在一个关系中如果有这样一个属性存在,它的值能惟一地标识关系中的每一个元组,称

这个属性为 _____ a____ 。 A)关键字B )主属性C )数据项D )主属性值 10. 关系数据库管理系统中的元组是______ b ____ 。 A)关系中的垂直方向的列 B )关系中的水平方向的行 C属性或属性的组合 D )以上的答案均不正确 11. 从数据库的整体结构看,数据库系统采用的数据模型有_________ a __ 。 A)层次模型、网状模型和关系模型 B)层次模型、网状模型和环状模型 C)网状模型、链状模型和层次模型 D链状模型、关系模型和层次模型 12. 设有属性A B、C D以下表示中不是关系的是___________ d__。 A)R( A) B )R( A, B)C )R (A, B, C, D) D )R (A X B X C X D) 13. 若实体间联系是M N的,则将联系类型_________ a___ 。 A)也转换为关系模型 B)属性加入任一个关系模式中 C)属性加入N端实体类型相应的关系模式中 D)属性加入M端实体类型相应的关系模式中 14. 数据库系统的构成为数据库、计算机硬件系统、用户和________ a ____ 。 A 数据库管理系统 B 操作系统 C 数据集合 D 文件系统 15. 层次型、网状型和关系型数据库划分原则是________ c ___ 。 A 文件大小 B 记录长度 C 数据之间的联系 D 联系的复杂程度 16. 在数据库设计中用关系模型来表示实体和实体之间的联系,关系模型的结构是 _____ d ___ 。 A 封装结构 B 层次结构 C 网状结构 D 二维表结构 17. 在关系模型中,实现“关系中不允许出现相同的元组”的约束是通过__a ________ 。 A 主键 B 超键 C 外键 D 候选键 18. 层次模型不能直接表示 ______ b __ 关系。 A 1:1 B m:n C 1:m D 1:1 和1:m 19. DBAS旨的是_____ d____ 。

《VB程序设计》考试题型练习 答案

《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性,它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种: 文字常量 、 符号常量(用户自定义常量) 系统内部常量 。 3. 变量的三要素是指: 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为: #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中,“\”是 整除 运算符;“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 (x+y+z )/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔,为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件,应将该属性设置为 500 ;为了暂时关闭计时器,应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑,需将文本框的哪个属性设置为True ( D )。 A )MultiLine B )Visible C )TabStop D )Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为( A )。 A )dfAS B )asAS C )dfas D )asas 3. 执行如下语句: a =InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框,在对话框的输入区中的默认值是( C )。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3,b=5,则以下表达式值为真的是( B )。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)

VB考试题及答案

VB程序设计期末考试题 一、选择题 1 下列常量中,是Integer类型常量的是( C )。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境(IDE)的叙述中,不正确的是( B )。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面(窗体)的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后,A=(A)。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时,转换规则是( D )。 A、将True转换为 1 ,将False转换为 0 B、将True转换为 1 ,将False转换为 -1 C、将True转换为 0 ,将False转换为 -1 D、将True转换为 -1 ,将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).

A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2,则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值( B )。 A、不能计算 B、 True C、5 D、False 11 随机产生[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(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile

vb程序设计试题(含答案)

第一套试题 一、选择题(每题2分,共30分) 1.在VB环境中,工程文件的扩展名是( C ) (A).frm (B).bas (C).vbp (D).frx 2.下面4项中不属于面向对象系统三要素的是( A ) (A)变量(B)事件(C)属性(D)方法 3. \、/、Mod、*这4个算述运算符中,优先级别最低的是( C ) (A)\ (B)/ (C)Mod (D)* 4.要使Print方法在Form_Load事件中起作用,要对窗体的( C )属性进行设置(A)BackColor (B)ForeColor (C)AutoRedraw (D)Caption 5.不论何控件,共同具有的属性是( B ) (A)Text (B)Name (C)ForeColor (D)Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”,以下语句正确的是( D ) (A)Form1.Caption=“欢迎使用VB”(B)Form1.Caption=ˊ欢迎使用VBˊ(C)Form1.Caption=欢迎使用VB (D)Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构,这3种基本结构是( D ) (A)递归结构,选择结构,循环结构(B)选择结构,过程结构,顺序结构 (C)过程结构,输入、输出结构,转向结构(D)选择结构,循环结构,顺序结构 8.给变量赋值a=123+MID(“123456”,3,2),a变量中的值是( D ) (A)“12334”(B)123 (C)12334 (D)157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是( D ) (A)If sex=“男”And age<40 And InStr(duty,“教授”)>0 Then n=n+1 (B)If sex=“男”And age<40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 (C)If sex=“男”And age<40 And Right(duty,2)= “教授” Then n=n+1 (D)If sex=“男”And age<40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容,可用来实现的方法是( C )

程序设计基础试题和答案解析二

《程序设计基础》考试试卷二 1.1966年,Bohra和Jacopini提出的三种基本程序设计结构是:________ A.if、while和for; B. switch、do-while和for; C.while、do-while和for; D.顺序结构、分支结构和循环结构。 2.算法的特征不包括:______。 A.有穷性 B.可行性 C.确定性 D.有1个或者多个输入。 3.C语言源程序的基本组成单位是______。 A.函数 B. 语句 C. 声明和语句 D. 文件 4.下列标识符中,只有______是合法的。 A.if B. 3ab C. Int D. A-4 5.下列常量中,只有______是合法的。 A.3e-0.3 B. ‘abc’ C. 02a1 D. ‘\377’ 6.下列说法中正确的是:______。 A.C语言中的for语句的三个表达式都可以省略,而且分号也可以省略。 B.宏替换比函数调用的执行速度慢。 C.实质上,C语言中的指针就是一个变量的地址。 D.C语言中的任何函数都可以由程序员命名。 7.C语言中,运算对象必须是整型的运算符是_______。 A./ B. % C. + D. - 8.以下叙述中错误的是_______。 A.C语句必须以分号结束 B.复合语句在语法上被看作一条语句 C.空语句出现在任何位置都不会影响程序运行 D.赋值表达式末尾加分号就构成赋值语句 9.以下叙述中正确的是_______。 A.调用printf函数时,必须要有输出项 B.使用putchar函数时,必须在之前包含头文件stdio.h C.在C语言中,整数可以以十二进制、八进制或十六进制的形式输出 D.调用getchar函数读入字符时,可以从键盘上输入字符所对应的ASCII码10.以下关于函数的叙述中正确的是_______。 A.每个函数都可以被其它函数调用(包括main函数) B.每个函数都可以被单独编译 C.每个函数都可以单独运行 D.在一个函数内部可以定义另一个函数 11.有以下程序段typedef struct NODE{ int num; struct NODE *next;

VB程序设计期末试卷

《VB程序设计》期末试卷 一、判断题(每题1分,共10分) ()1、设置属性的语句格式为:“对象名.属性名=属性值”。 ()2、在窗体或模块文件中声明为Private的过程,只能被本窗体或模块中的过程所调用。()3、VB的赋值语句只能给变量赋值。 ()4、在VB中,字符型常量应使用"#"号将其括起来。 ()5、窗体大小只能通过鼠标拖动窗体边框来设置。 ()6、VB的Double类型数据,可以精确表示其数值范围内的所有实数。 ()7、若用户在键盘上按下一个键,则会产生一个Click事件。 ()8、罗马数制是进位计数制。 ()9、事件过程可以由用户事件触发执行,也可以由其他过程所调用。 ()10、Do While条件.....Loop和DO Until Not条件.....Loop 两条循环语句,实现循环控制是等效的。 二、单项选择题。(每小题2分,共50分) ()1.设a=“Visual Basic”,下面使b=“Visual”的语句是 A. b=Left(a,6) B. b=Mid(a,1) C. b=Rigth(a,5,5) D. b=Left(a,1,6) ()2.在立即窗口中执行?9>=9,输出结果是 A.0 B.True C.False D. -1 ()3.语句Dim var1 As Boolean作用是:将var1定义为什么类型变量 A.单精度型 B. 整型 C. 布尔型 D.字符型 ()4.Int(—0.618*10)/10的值是 A.—0.7 B.—0.6 C. —1 D. —0.1 ()5.表达式2 + 8 * 6 / 4 Mod 2的值是 A.5 B.2 C.6 D.9 ()6.在VB中快捷键F4打开哪个窗口? A. 资源管理器窗口 B. 属性窗口 C. 代码窗口 D. 立即窗口 ()7.函数Int( 64 * RND() )的值是在哪个范围内的整数? A. [0,63] B. [0,64] C. [1,63] D. [1,64] ()8.下列叙述中正确的是 A. 只有窗体才是Visual Basic中的对象 B. 只有控件才是Visual Basic中的对象 C. 窗体和控件都是Visual Basic中的对象 D. 窗体和控件都不是Visual Basic中的对象 ()9.用于Visual Basic程序设计的控件在 A. 工具箱中 B.工具菜单中 C. 工程窗口中 D.工具栏上 ()10.Visual Basic程序中表示续行的字符是 A. : B. _ C. \ D. ’ ()11.决定按钮显示内容的属性是 A. Text https://www.doczj.com/doc/e214203430.html, C. Caption D.BackStyle ()12.下列可以把图形文件c:\地鼠1.jpg装入窗体FORM1中的语句为 A. Form1.Picture= LoadPicture("c:\ 地鼠1.jpg") B. Form1.Handle = " c:\ 地鼠1 .jpg" C. Form1 = LoadPicture("c:\ 地鼠1.jpg") D. Form1 = " c:\ 地鼠1.jpg" ()13.设a、b、c为整型变量,执行以下程序后a、b、c的值是 a=1:b=2:c=3 a=b:b=c:c=a A.2 3 1 B.2 3 2 C.3 2 1 D.1 3 2 ()14.将数学表达式2 2* 5 ) ( cos e b a+ +写成Visual Basic的表达式,其正确的形式是 A.Cos (a+b) ^2+5*exp(2) B.Cos^2(a+b)+ 5*exp(2) C.Cos (a+b) ^2+5*ln(2) D.Cos^2(a+b)+ 5*ln(2) ()15.下列描述图片框和图像框区别,那条是错误的 A.图像框中显示图片一般用作背景 B.图片框有拉伸属性

VB程序设计编程考试~题及答案~

VB程序设计编程考试题及答案 1.输入3个数,输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜!成绩通过!”, 若小于60,则弹出消息框,显示“抱歉!成绩没有通过! Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜!成绩通过!")) Else Val (MsgBox("抱歉!成绩没有通过!")) End If End Sub 4.输入一年份,判断它是否为闰年,并显示有关信息。(判断闰年的条件是:年份能被4整 除但不能被100整除,或者能被400整除) Private Sub Command1_Click() Dim y%

程序设计基础C-题库-1

程序设计基础C-题库 1、计算机语言按照高低级别可分为机器语言、 、 三大类。 答案: 汇编语言 ; 高级语言 ; 2、C语言中源文件的后缀名为 。 答案: *.c;.c ; 解析: 3、在程序中,如果使用printf()函数,应该包含 头文件。 答案: stdio.h ; 解析: 4、在main()函数中,用于返回函数执行结果的是 语句。 答案: return ; 5、C语言程序在Windows平台下经过编译、连接后生成的可执行文件后缀是 。答案: .exe ;

6、C语言并不属于高级语言。 答案:错误 7、计算机语言(Computer Language)是人与计算机之间通信的语言。 答案:正确 8、C语言并不能实现汇编语言的大部分功能。 答案:错误 9、Eclipse工具和Visual Studio工具都可以开发C语言。 答案:正确 10、C语言是UNIX和其衍生版本的主要开发语言。 答案:正确 11、请简述printf()函数的作用。 答案: printf()printf()“Hello, world\n”“\n” 12、请简述C语言中main()函数的作用。 答案: main函数是C程序的入口函数,即程序的执行是从main函数开始 解析: 13、使用DEV-C++开发工具编写一个控制台程序,要求在控制台上输出一句话:“我喜欢C语言”。 答案输入: #include int main() { printf("C");

return 0; } 答案输出: C 14、C语言属于下列哪类计算机语言? A、汇编语言 B、高级语言 C、机器语言 D、以上均不是 答案:B 15、下列关于主函数说法错误的是( ) A、一个C程序中只能包含一个主函数 B、主函数是C程序的入口 C、C程序中可以包含多个主函数 D、主函数只能包含输出语句 答案:CD 16、下列选项中,不属于C语言优点的是 A、不依赖计算机硬件 B、简洁、高效 C、可移植 D、面向对象 答案:D 17、下列选项中,哪一个是多行注释? A、// B、/**/ C、\\ D、以上均不属于 答案:B 18、C语言是一种()的编程语言 A、面向对象 B、面向过程 C、可视化 D、组件导向 答案:B

大学VB期末考试试题

VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是(1)和(2)。 2、在VB中,最主要的两种对象是(3)和(4)。 3、工程是构成应用程序文件的(5)。 4、方法是VB提供的一种(6),用来完成一定的操作。 5、浮点类型数据包括单精度型和___(7)__数据。 6、事件是窗体或控件对象识别的___(8)____。 7、可用窗体的___(9)_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____(10)___或禁止状态(暗淡的)中的某一种。 9、在VB中,修改窗体的(11)和(12)属性值,可改变窗体的大小。 10、双击工具箱中的控件图标,可在窗体的(13)出现一个尺寸为缺省值的控件。 11、在MsgBox函数中,如果缺省title参数,则使用(14)作为消息框的标题。 12、设x=34.58,语句Print Format(x,“000.0”)的输出结果是(15)。 13、在VB 中,数值型变量的初值为(16),Varant型变量的初值为(17),布尔型变量的初值为(18)。 14、设置窗体的(19)属性,可在窗体上显示图片。 15、程序运行工程中,清除MP图片框中的图片应使用语句(20)。 二、选择题 1、菜单控件只包括一个事件,即(1),当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是(2)。 A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示(3)。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中,不属于标签的属性是(4)。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是(5)。

[整理]VB程序设计复习题及答案.

中南大学现代远程教育课程(专科)考试复习题及答案 《VB程序设计与应用》 一、选择题:在每小题给出的四个选项中,只有一项是符合题目要求的,请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是()。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是()。[ ] A: Filename B: A(A+B)C: A%D D : Print 3. 要让菜单项无效,应将()属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是()事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是()属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中,不正确的为()。[ ] A)事件是由Visual Basic预先定义好的,能够被对象识别的动作 B)DblClick(双击)是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件,需要程序员自己定义 7. 下列控件中可设置滚动条是()。 [ ] A. 检查框(复选框) B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体,( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1,则One为()类型的常数。[ ] A)整型 B)字节型

程序设计基础试题_03_答案.doc

学院领导 审批并签名 A / B卷 广州大学 学年第学期考试卷 课程高级语言程序设计考试形式(开/闭卷,考试/查)学院系专业班级学号姓名 分数 评分 一:选择题(每题3分,共60分) (1)若有以下定义: char a; int b; float c; double d; 则表达式a*b+d-c值的类型为(A)

A) double B) float C) int D) char (2)设a=1,b=2,c=3,d=4,则表达式:a=10 or a<=0 B)a>=10│a<=0 C)a>=10││a<=0 D)a>=10 ││ a<=0 (7)下列可 作为C语言赋值语句的是(C) A) x=3,y=5 B) a=b=6 C) i--; D) y=int(x); (8)设i是int型变量,f是float型变量,用下面的语句给这两个变量输 入值: scanf(i=%d,f=%f,&i,&f); 为了把100和765.12分别赋给i和f,则正确的输入为(A) A) 100765.12 B) i=100,f=765.12 C) 100765.12 D) x=100y=765.12 (9)给出以下定义: char x[ ]=abcdefg;

VB程序设计试题及答案一

V B程序设计试题及答案(一) 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作,要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI,可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中,其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构,三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty,"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty,2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……

相关主题
相关文档 最新文档