maxThenmax=nEndIfNextPrint"三个数中最大的数是";maxEndSub2.有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根Priva" />

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

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

y = InputBox("请输入年份")

If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then

Val (MsgBox("闰年!"))

Else

Val (MsgBox("平年!"))

End If

End Sub

5.输入学生的百分制成绩,转换输出为五级制成绩,90~100分转换为优秀,80~89转换

为良好,70~79转换为中等,60~69转换为及格,0~60转换为不及格。

Private Sub Command1_Click()

a = Val(InputBox("请输入成绩"))

If a > 100 Then Print "超出范围"

If a >= 90 And a <= 100 Then Print "优秀"

If a >= 80 And a < 90 Then Print "良好"

If a >= 70 And a < 80 Then Print "中等"

If a >= 60 And a < 70 Then Print "及格"

If a < 60 Then Print "不及格"

End Sub

6.随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。例如,产生246,

输出是642。

Private Sub Command1_Click()

Dim x%, x1%, x2%, x3%

x = Text1

x1 = x Mod 10

x2 = (x Mod 100) \ 10

x3 = x \ 100

Label1 = x1 * 100 + x2 * 10 + x3

End Sub

7.输入两个整数,求它们的最大公约数。

private Sub Command1_Click()

n1 = InputBox("输入n")

m1 = InputBox("输入m")

If m1 > n1 Then

m = m1: n = n1

Else

m = n1: n = m1

End If

r = m Mod n

Do While r <> 0

m = n

n = r

r = m Mod n

Loop

Print "m n 的最大公约数是:"; n

End Sub

8.编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数,则

只能加一次。。

Private Sub Command1_Click()

For i = 200 To 400

If i Mod 5 = 0 Or i Mod 7 = 0 Then

Sum = Sum + i

End If

Next i

For i = 200 To 400

If i Mod 5 = 0 And i Mod 7 = 0 Then

Sum = Sum - i

End If

Next i

Print “倍数之和=”; Sum

End Sub

9.计算100~300之间所有能被3和7整除的数之和

Private Sub Command1_Click()

Dim i

Sum = 0

For i = 100 To 300

If i Mod 3 = 0 And i Mod 7 = 0 Then

Sum = Sum + i

End If

Next i

Print Sum

End Sub

10.分别统计1-100中,满足3的倍数、7的倍数的数各有多少。

Private Sub Command1_Click()

Dim i, s3, s7

s3 = 0

s7 = 0

For i = 1 To 100

If i Mod 3 = 0 Then

s3 = s3 + 1

End If

Next i

For i = 1 To 100

If i Mod 7 = 0 Then

s7 = s7 + 1

End If

Next i

Print "3的倍数"; s3

Print "7的倍数"; s7

End Sub

11.某次歌曲大奖赛,有7个评委。如果分别输入7个评委对某个参赛者的打分数,按照去

掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。

Private Sub Command1_Click()

Dim max, a(1 To 7), min, s

For i = 1 To 7

a(i) = Val(InputBox("输入第" & i & "个数"))

Next i

max = a(1)

min = a(1)

s = a(1)

For i = 2 To 7

If a(i) > max Then max = a(i)

If a(i) < min Then min = a(i)

s = s + a(i)

Next i

s = s - min - max

s = s / 5

Print "平均分"; s

End Sub

12.输入一串字符,统计其中字母A(不区分大小写)出现的次数。

Private Sub Command1_Click()

Dim c As String, a As Integer

b = InputBox("请输入字符")

For i = 1 To Len(b)

c = UCase(Mid(b, i, 1))

If c = "A" Then

a = a + 1

End If

Next i

Print "a出现的次数:"; a

End Sub

13.我国目前有13亿人口,按人口年增长率0.8%计算,多少年后我国人口将超过26亿。

Private Sub Command1_Click()

Dim a, i

a = 13

i = 0

Do While a < 26

a = a * (1.008)

i = i + 1

Loop

Print i

End Sub

14.小猴有桃若干,第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个;以后每天都

吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少?

Private Sub Command1_Click()

Dim a, i

a = 1

For i = 1 To 6

a = 2 * (a + 1)

Next i

Print "小猴原有桃"; a;”只”

End Sub

15.求100以内的素数

Private Sub Command1_Click()

Dim i, j

For i = 2 To 100

For j = 2 To i - 1

If i Mod j = 0 Then Exit For

Next j

If j = i Then Print i

Next i

End Sub

16.百元买百鸡问题。假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方

案。

Private Sub Command1_Click()

Print "小鸡"; " "; "母鸡"; " "; "公鸡"

Print ""

For x = 1 To 100

For y = 1 To 100

For z = 1 To 100

If 0.5 * x + 2 * y + 3 * z = 100 Then

Print ""; x; " "; y; " "; z

End If

Next z

Next y

Next x

End Sub

17.编程求斐波那契数列前11项。(斐波那契数列:F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 )

Private Sub Command1_Click()

Dim F(11), i As Long

F(0) = 1

F(1) = 1

For i = 2 To 10

F(i) = F(i - 1) + F(i - 2)

Next i

For i = 0 To 11

Print F(i);

Next i

End Sub

18.将输入的字符串以反序显示。例如:输入“ASDFGT”,显示“TGFDSA”

Private Sub Command1_Click()

Dim a, b, c, d, n

a = InputBox("输入字符串")

n = Len(a)

For b = 1 To Int(n \ 2)

c = Mid(a, b, 1)

Mid(a, b, 1) = Mid(a, n - b + 1, 1)

Mid(a, n - b + 1, 1) = c

Next b

Print a

End Sub

19.随机产生10个[30,100]内的整数,求最大值及所对应的下标

Private Sub Command1_Click()

Dim a(1 To 10), m

Randomize

For I = 1 To 10

a(I) = Int(Rnd * 71) + 30

Print a(I)

Next I

Max = a(1)

For I = 2 To 10

If a(I) > Max Then Max = a(I): m = I

Next I

Print "max="; Max

Print "max的下标为"; m

End Sub

20.随机产生10个[30,100]内的整数,求最大值、最小值和平均值。

Private Sub Command1_Click()

Dim a(1 To 10)

For i = 1 To 10

a(i) = Int(Rnd * 71) + 30

Print a(i)

Next i

Max = a(1)

Min = a(1)

Avg = a(1)

For i = 2 To 10

If a(i) > Max Then Max = a(i)

If a(i) < Min Then Min = a(i)

Avg = Avg + a(i)

Next i

Avg = Avg / 10

Print "max="; Max

Print "min="; Min

Print "avg="; Avg

End Sub

21.随机产生10个[30,100]内的整数,求最小值及所对应的下标。

Private Sub Command1_Click()

Dim a(1 To 10), m

Randomize

For I = 1 To 10

a(I) = Int(Rnd * 71) + 30

Print a(I)

Next I

Min = a(1)

For I = 2 To 10

If a(I) < Min Then Min = a(I): m = I

Next I

Print "min="; Min

Print "min的下标为"; m

End Sub

22.随机生成一个整型的二维数组,范围在[10,20]之间,以下三角形式输出该数组。

Private Sub Command1_Click()

Dim a(1 To 10, 1 To 10), i, j As Integer

For i = 1 To 10

For j = 1 To 10

a(i, j) = Int(Rnd *11 + 10)

Next

Next

For i = 1 To 10

For j = 1 To i

Print Spc(3); a(i, j);

Next

Print

Next

End Sub

23.随机产生10个1~100的正整数放入数组,显示产生的数,求最大值、最小值、平均值。

Private Sub Command1_Click()

Dim a(1 To 10)

For i = 1 To 10

a(i) = Int(Rnd * 101) + 1

Print a(i)

Next i

Max = a(1)

Min = a(1)

Avg = a(1)

For i = 2 To 10

If a(i) > Max Then Max = a(i)

If a(i) < Min Then Min = a(i)

Avg = Avg + a(i)

Next i

Avg = Avg / 10

Print "max="; Max

Print "min="; Min

Print "avg="; Avg

End Sub

24.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所

有数据之和

Private Sub Command1_Click()

Dim a%(4, 5), sum

For i = 1 To 4

For j = 1 To 4

a(i, j) = Int(Rnd * 31) + 20

Print a(i, j);

sum = sum + a(i, j)

Next j

Print '换行

Next i

Print "sum="; sum

End Sub

25.已知有序数组a(),编程插入x(x的值为14)。数组a中的元素分别为{12,6,4,89,

75,63,100,20,31}。

Private Sub Command1_Click()

Dim a(), i%, k%, x%, n%

a = Array(4, 6, 12, 20, 31, 63, 75, 89, 100)

n = UBound(a)

x = Val(InputBox("请输入所要插入数"))

For k = 0 To n

If x < a(k) Then Exit For

Next k

ReDim Preserve a(n + 1)

For i = n To k Step -1

a(i + 1) = a(i)

Next i

a(k) = x

For i = 0 To n + 1

Print a(i);

Next i

End Sub

26.编写一函数,计算Double类型一维数组所有元素的平均值。

27.编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定

Private Sub command1_Click()

Dim a(1 To 10), min, i%

For i = 1 To 10

a(i) = Int(Rnd * 101)

Print a(i);

Next i

Call ProcMin(a(), min)

Print

Print "min ="; min

End Sub

Sub ProcMin(b(), min)

Dim i%

min = b(LBound(b))

For i = LBound(b) + 1 To UBound(b)

If b(i) < min Then min = b(i)

Next i

End Sub

28.编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定。

Private Sub Form_Click()

Dim a(1 To 10), amin, i%

For i = 1 To 10

a(i) = Int(Rnd * 101)

Print a(i);

Next i

Call ProcMin(a(), amin)

Print

Print "amin ="; amin

End Sub

Sub ProcMin(b(), min)

Dim i%

min = b(LBound(b))

For i = LBound(b) + 1 To UBound(b)

If b(i) < min Then min = b(i)

Next i

End Sub

29.编一个函数,求一维数组a中的最大值,函数的形参自己确定。

Private Sub Form_Click()

Dim a(1 To 10), amax, i%

For i = 1 To 10

a(i) = Int(Rnd * 101)

Print a(i);

Next i

Call ProcMax(a(), amax)

Print

Print "amax ="; amax

End Sub

Sub ProcMax(b(), max)

Dim i%

min = b(LBound(b))

For i = LBound(b) + 1 To UBound(b)

If b(i) > max Then max = b(i)

Next i

End Sub

30.编写一个过程计算并输出区间[100,1000]内所有素数的和(要求判断素数使用过程(函数

或子过程)来实现。调用该过程。(提示:只能被1和自身整除的自然数称为素数。)

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. 下面过程定义语句合法的是____________。

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

《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 )

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.360docs.net/doc/fe17427496.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%

大学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)字节型

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 ……

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=“副教授”) Thenn=n+1

VB程序设计_期末复习资料2.doc

Visual Basic程序设计期末综合练习 2008年11月 一、单项选择题 1.一个VB应用程序可以包含几个vbp文件(A.1个)。 2.启动VB后,就意味着要建立一个新( C.工程)。 3.后缀为.bas的文件表示(D.标准类模块文件)。 4.当一个工程中含有多个窗体时,其中的启动窗体是( D.在“工程属性”对话框中指定的窗体)。 5.在文本框控件中将Text的内容全部显示为所定义的字符的属性是(B.PasswordChar )。 A.Password B.PasswordChar C.需要编程来实现D.以上都不是 6.Visual Basic是一种面向对象的程序设计语言,所采用的编程机制是(C.事件驱动)。 A.从主程序开始执行B.按过程顺序执行 C.事件驱动D.按模块顺序执行 7.下列四项中合法的变量名是(B.a_bc )。 A.a-bc B.a_bc C.4abc D.integer 8.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后,将该可执行文件拿到其它机器上不能运行的主要原因是(C.运行的机器上无VB系统)。 A.缺少.frm窗体文件B.该可执行文件有病毒 C.运行的机器上无VB系统D.以上原因都不对 9.无论何种控件,共同具有的属性是(B.Name) A.Text B.Name C.Caption D.ForeColor 10.有程序代码如下: Text1.Text = "Visual Basic程序设计" 则Text1,Text ,和"Visual Basic程序设计"分别代表(C.对象,属性,值)。 A.对象,值,属性B.对象,方法,属性 C.对象,属性,值D.属性,对象,值 11.如果仅需要得到当前系统时间,使用的函数是(B.Time ) A.Now B.Time C.Year D.Date 12.表达式16/4-2^5*8/4MOD5\2(D.4 )。 A.20 B.14 C.2 D.4 13.以下叙述中错误的是(D、在一个窗体文件中用Private定义的通用过程能被其它窗体调用)。 A、一个工程中可以包含多个窗体文件

大学计算机VB程序设计考试题目

实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text

vb程序设计期末复习题及答案

《vb程序设计》期末复习题及答案 一、填空题 1.创建一个VB应用程序三个主要的步骤是__________________、________________和 _____________________。 2.当程序运行时,要求窗体中的文本框呈现空白,则在设计时,应当在此文本框的__________窗口中,把此文本框的_____________属性设置成空白。 3.Label和TextBox控件用来显示和输入文本,如果仅需要让应用程序在窗体中显示文本信息,可使用___________控件;若允许用户输入文本,则应使用_____________控件。 4.窗体的常用方法有__________、___________、___________和___________。 5.要想在代码中给名为txtshow的文本框赋予文本:GOOD WORK ,应当编写的语句是 ____________________________________。 6.若命令按钮的名称为Cmdopen,程序要求单击该命令按钮时,打开一个窗口frm1,请对以下事件过程填空。 Private Sub Cmdopen_ ___________ _____________________ End Sub 7.Visual Basic 6种类型的表达式是______________、______________、______________、 ________________、_________________、____________________。Visual Basic根据表达式的 ___________来确定表达式的类型。 8.表达式93 \ 7 Mod 2 ^ 2 的值是___________。 9.已知a=3,b=4,c=5,表达式a>b and Not c>a Or c>b And ca And Not b

VB程序设计在线考试答案精编

V B程序设计在线考试答 案精编 Document number:WTT-LKK-GBB-08921-EIGG-22986

《VB程序设计》课程综合复习资料 一、单项选择 1.若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D )属性。 A.BACKCOLOR B.BORDERSTYLE C.FORECOLOR D.BACKSTYLE 2.如果要在文本框中输入字符时,只显示某个字符,如星号(*),运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是(B ) A.文本框的MULTILINE属性值为TRUE B.文本框的LOCKED属性值为TRUE C.文本框的MULTILINE属性值为FALSE D.文本框的LOCKED属性为FALSE 3.下列关于属性设置的叙述错误的是:( A) A.一个控件具有什么属性是VB预先设计好的,用户不能改变B.一个控件具有什么属性是VB预先设计好的,用户可以改变C.一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置 D.一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值 4.下列说法正确的是(C ) A.对象属性只能在“属性窗口”中设置 B.一个新的工程可以在“工程窗口”中建立

C.必须先建立一个工程,才能开始设计应用程序 D.只能在“代码窗口”中编写程序代码 5.下列关于窗体上控件的基本操作错误的是:(A ) A.下一次DEL键只能删除一个控件 B.按下一次DEL键可以同时删除多个控件 C.按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件 D.按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件 6.下列关于设置控件属性的叙述正确的是(C ) A.用户必须设置属性值 B.所有的属性值都可以由用户随意设定 C.属性值不必一一重新设置 D.不同控件的属性项都完全一样 7.如果将布尔常量值TRUE赋值给一个整型变量,则整型变量的值为(B ) A.0 B.-1 C.TRUE D.FALSE 8.下列关于控件画法的叙述错误的是(D ) A.单击一次工具箱中的控件图标,只能在窗体上画出一个相应的控件 B.按住CTRL键后单击一次工具箱中的控件图标,可以在窗体上画出多个相同类型的控件

相关文档
最新文档