VB程序设计题库(全)

VB程序设计题库(全)
VB程序设计题库(全)

VB程序设计练习题

第一题、

题目:(事件)单击窗体

(响应)求50以内所有偶数的和,并在窗体上输出来。

将结果存入变量S中。

代码:Dim I As Integer

For i = 2 To 50

If (i Mod 2)=0 Then

S=s+i

End If

Next

Print (CStr(s))

第二题

题目:(事件)双击窗体

(响应)求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码:Dim i,j As Integer

Dim k As Long

k=1

s=0

For i =1To 10

For j=1 To i

k=k*j

Next

s=s+k

k=1

Next

Print(CStr(s))

第三题

题目:(事件)单击窗体

(响应)求100以内偶数的和,并将结果输出在窗体上。

将结果存入变量SUM中

代码:Dim i As Integer

For i =1 To 100

If i Mod 2 =0 Then

Sum=sum+i

End If

Next

Print sum

第四题题目:(事件)单击窗体

(响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。

代码:Dim i,j As Integer

Dim s As Long

For i =10 To 15

s=1

For j = i To i +2

s=s*j

Next

m=m+s

Next

Print (CStr(m))

第五题

题目:(事件)双击窗体

(响应)求100以内奇数的和,并将结果输出在窗体上。

将结果存入变量SUM中。

代码:Dim i As Integer

For i=1 To 100

If i Mod 2 = 1 Then

sum = sum + i

End If

Next

Print sum

第六题

题目:(事件)单击窗体

(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,

结果输出在窗体上

代码:Dim s As Single

For i=1 To 10

a=i*i

Sum =1/a + Sum

Next

Print Sum

第八题

题目:(事件)单击窗体

(响应)求1—1/2+1/3—1/4+….+1/99—1/100的值。

将结果存入变量J中

代码:Dim j As Single

Dim i As Single

j=0

For i = 1 To 100

k=(-1)^(i+1)/i

j=k+j

Next i

Print j

第九题

题目:(事件)双击窗体

(响应)s=20+21+22+…+263,求s的值,并将结果存储到变量S中。代码:Dim s As Long

s=20

For s= 21 To 263

b=s+1

Sum=Sum+b

Next

Print Sum

第十题

题目:(事件)单击窗体

(响应)求出100以内所有素数的和,并将结果输出

到窗体上,并存入所给变量SUM中

代码:Dim sum As Integer

For i = 1 To 100

For j = 2 To i - 1

Exit For

Next j

Next i

If i Mod j = 0 Then

End If

If j - i Then

sum = sum + i

End If

Print sum

第十二题

题目:(事件)单击窗体

(响应)求10~20之间所有素数的乘积并输出在窗体上。

将结果存入变量L中代码:Dim l As Long

l=1

For i=10 To 20

For j=2 To i-1

If i Mod j = 0 Then

Exit For

End If

Next j

If j = i Then

l=l*i

End If

Next i

Print l

Next

Print s

第十五题

题目:(事件)单击窗体

(响应)求200~300之间既能被3整除又能被7整除的数。

并求出所有数之和存入变量SUM中。

代码:Dim sum As Integer

sum = 0

For i = 200 To 300

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

sum = sum +i

End If

Next

Print sum

第十七题

题目:(事件)双击窗体

(响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。

结果存入变量S中

代码:Dim s As Integer

s = 0

t = 1

For i = 1 To 5

t = i*t

Sum = sum + t

Next

Print Sum

第十八题

题目:(事件)双击窗体

(响应)求3+6+9+12+15+18+…..+300的和,并将结果输出到窗体上。

将结果存入变量SUM中

代码:Dim sum As Integer

sum = 0

For i = 3 To 300 Step 3

sum= sum +i

Next i

Print sum

第十九题

题目:(事件)单击窗体

(响应)求10!的值,并将结果输出在窗体上。

将结果存入变量SUM中

代码:Dim sum As Long

Dim i As Integer

sum = 1

For i = 1 To 10

sum = i*sum

Next

Print sum

第二十二题

题目:(事件)单击窗体

(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。

将结果存入变量S中

代码:Dim i As Integer

s=0

For i = 1 To 10

s = s + 1/(i^i)

Next

Print(s)

第二十三题

题目:(事件)单击窗体

(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…..的前10项,并求其和。代码:Dim i ,j,k,m As Integer s=0

i=2

j=1

For k = 1 To 10

m = j

Print (CStr(i))& “/” & CStr(j)

j = i

i=i+m

s=s+i/j

Next

第二十四题

题目:(事件)单击窗体

(响应)一球从100米高度自由落下,每次落地返回。原高度的一半,求第10次落地时,共经过多少米?并将结果在窗体上输出。

代码:Dim j,i As Integer

s=0

j=100

For i = 2 To 10

j=j / 2

s=s+2*j

Next

s=100+s

Print(CStr(s))

第二十七题

题目:(事件)单击窗体。

(响应)求出1000-9999之间具有如下特点的四位数字,它的平方根恰好就是它中间的两位数字,例如,2500开平方为50,恰为2500的中间两位,找出所有这样的四位数。并求出所有这样的数的和存入SUM中。

代码:Dim i As Integer

Dim j As Integer

For i = 1000 To 9999

j= Val(Mid(Trim( Str(i)), 2, 2))

If j ^ 2 = i Then

Print i,

sum = sum + i

End If

Next

第二十八题

题目:(事件)双击窗体

(响应)把一元钞票换成一分、二分、和五分的硬币(每种至少有一枚),求出其所有的换法,把结果输出在窗体上。将所有的换法的数目存入变量N中

代码:Dim i, j,k As Integer

For i = 1 To 100

For j = 1 To 50

For k = 1 To 20

If ((i+2*j +k*5)=100) Then

Print (CStr(i))

Print (CStr(j))

Print (CStr(k))

n=n+1

End If

Next

Next

Next

第三十一题

题目:(事件)单击窗体。

(响应)生成一个一维数组(10个数组元素依次为:15、23、72、43、96、23、3、65、88、17),写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。将最大值,最小值,平均值分别存入变量Max,Min,Aver中。

Dim a

Dim i, s As Integer

a = array(15,23,72,43,96,23,3,65,88,17)

Max = a(0)

Min = a(0)

s = 0

For i = 0 to 90

If a(i)>max Then

max = a(i)

End If

If a(i)

min = a(i)

End If

s = s + a(i)

Next

aver = Int(s/10)

Print (CStr(max))

Print (CStr(min)) Print (CStr(aver))

第三十二题

题目:(事件)单击窗体。

(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中。

代码:Dim i,j,s As Integer

For i = 100 To 200

For j = 2 To Sqr(i)

If (i Mod j) = 0 Then

Print(CStr(i))

sum = sum + i

Exit For

End If

Next

Next

Print sum

第三十八题

题目:(事件):单击窗体。

(响应):求1-1/2+1/3-1/4+…+1/99-1/100的值。将结果存入变量J中。

代码:Dim i As Integer

For i = 1 To 100

Next

If i Mod 2 = 1 Then

j = j + 1 / i

Else

End If

If i Mod 2 = 0 Then

j = j - 1 / i

End If

Print j

第三十九题

题目:(事件):单击窗体。

(响应):求1+2+3+4+…+100的值,并把结果输出在窗体上。结果存入变量SUM中。代码:Dim i As Integer

For i = 1 To 100

Sum = Sum + i

Next

Print Sum

第四十题

题目:(事件):双击窗体。

(响应):求1+2+3+5+8+13+….的前20项和,并将结果在窗体上输出。将结果存入变量SUM 中。

代码:Dim i As Integer

Dim j(1 To 20) As Integer

For i = 1 To 20

If i < 3 Then

j(i) = 1

Else

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

End If

Sum = Sum + j(i)

Next

Print Sum

第四十三题

题目:(事件):双击窗体。

(响应):求1+5+10+15+…+500的和,并将结果输出在窗体上。将结果存入变量SUM中。

代码:Dim i As Integer

For i = 1 To 500

If i Mod 5 = 0 Then

Sum = Sum + i

End If

Next

Print Sum

第四十六题

题目:(事件):单击窗体。

(响应):求数列1+3+3+9+27+…前6项的和,并将结果输出在窗体上。将结果存入变量SUM 中。

代码:Dim i As Integer

Dim j(1 To 6) As Integer

For i = 1 To 6

If i < 3 Then

j(i) = 3 ^ (i - 1)

Else

j(i) = j(i - 1) * (i - 2) End If

Sum = Sum + j(i) Next

Print Sum

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题库—程序设计[1]

程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目:(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意:请在指定的事件内编写代码。 '------------------------------------------------- 答案:---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目:(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意:请在指定的事件内编写代码。 '------------------------------------------------- 答案:---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目:(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100, ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案:---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152)

vb题库程序设计

一、程序设计 '【程序设计】 1.'题目:编写函数fun,函数的功能是:计算两个正整数的最大公约数,并显示。如:'两个数为15、20,结果显示"5" '要求使用Do ... Loop语句来实现。 答案:Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目:判断一个数是否是素数。 答案:---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目:(事件)单击窗体。 ' (响应)求10!的值,并将结果输出到窗体上。 将结果存入变量SUM中。 答案:---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目:(事件)单击窗体。 (响应)求1+2+3+……+100的值,并把结果输出在窗体上。结果存入变量SUM中。 答案:---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目:编写函数fun,函数的功能是:求1到m之间的偶数之积。 答案:---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m

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

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

VB程序设计试题及答案(一) 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用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 … … Next x Next x

《VB程序设计基础》模拟精彩试题

《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类,前者根据其取值的不同,可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______;Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量,b是___布尔__变量。 6. MsgBox函数的返回值中, VBRetry表示单击了____重试_____按钮,VBYes表示单击了___是_____按钮,VBNo表示单击了_____否____按钮。 7. 要加载窗体,可以在代码中使用___________语句,要显示窗体,可以在代码中使用___________方法,要隐藏窗体,可以在代码中使用Hide方法,要卸载窗体,可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型,其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元,它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中,当条件为____真____时结束循环。 13. 要显示弹出菜单,可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式,常量默认采用__________方式;变量默认采用__________方式;表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种:____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序,按其语句代码执行的先后顺序,可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________,如果要改变其默认值,应使用_____________。 ●判断题 ()1. Visual Basic运行程序的方法只有编译模式。 ()2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 ()3. InputBox函数和MsgBox函数一样,返回的是字符串。 ()4. 通过类模块,我们不可以根据需要建立自己的控件。 (×)5. 2.1E+5是合法的Visual Basic数据。 ()6. 根据占用内存方式的不同,可将数组分为常规数组和动态数组两种类型。 (√)7. x2是合法的变量名。 ()8. 按照文件的存取方式及其组成结构可以分为两种类型:文本文件和随机文件。

vb题库程序设计题讲解

(事件)单 ' (响应)用输入框输入一自然数,判断是”正数”、”负数” 或”零”,并根据输入的数用消息框显示”正数”、"负数" 或”零”。 n = lnputBox(" 输入一个自然数") If n > 0 Then result =" 正数" Elself n < 0 Then result =" 负数" Elself n = 0 Then result =" 零" End If MsgBox"输入的数据"& n & " 为:"& result 题目编写函数fun,函数的功能是:判断一个字符是 '字母字符、数字字符还是其他字符,并做相应的显示。 '字母字符显示字符串"字母" '数字字符显示字符串"数字" '其他字符显示字符串"其他" '要求使用IF语句来实现。 If UCase(n) >= "A" And UCase(n) <= "Z" Then fun =" 字母" ElseIf n >= "0" And n <= "9" Then fun =" 数字" Else fun =" 其他" End If '题目:编写函数fun,函数的功能是:根据一个百分制 '成绩mark (整数),显示对应五级制的评定。条件如下: 'mark大于等于90显示"优秀" 'mark小于90且大于等于80显示"良好" 'mark小于80且大于等于70显示"中等" 'mark小于70且大于等于60显示"及格" 'mark小于60显示"不及格" '要求使用IF语句来实现。 Private Function fun(mark As Integer) As String **********Program ********** **********End ********** End Function If mark >= 90 The n fun =" 优秀" ElseIf mark >= 80 The n

VB程序设计题库全

V B程序设计题库全 Document serial number【LGGKGB-LGG98YT-LGGT8CB-LGUT-

程序设计 第一题、 题目:(事件)单击窗体 (响应)求50以内所有偶数的和,并在窗体上输出来。 将结果存入变量S中。 代码:Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目:(事件)双击窗体 (响应)求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码:Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目:(事件)单击窗体 (响应)求100以内偶数的和,并将结果输出在窗体上。 将结果存入变量SUM中

代码:Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目:(事件)单击窗体 (响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码:Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目:(事件)双击窗体 (响应)求100以内奇数的和,并将结果输出在窗体上。 将结果存入变量SUM中。 代码:Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题

【2017年最新】大学VB考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是(C)。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句:a=123& MID("123456",3,2)执行后,a变量中的值是(C)。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件,这两个文件分别是(B)。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是(C)。 A、https://www.360docs.net/doc/b517223680.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序,应当(D) A、只装入窗体文件(.frm) B、只装入工程文件(.vbp) C、分别装入工程文件和标准模块文件(.bas) D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要(A)。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是(C)。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括(C)。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用,要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作,要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上,应将进行(D)设置。 A、将控件的TabIndex属性设置为0

VB程序设计题库(全)复习课程

V B程序设计题库(全)

VB程序设计练习题 第一题、 题目:(事件)单击窗体 (响应)求50以内所有偶数的和,并在窗体上输出来。 将结果存入变量S中。 代码:Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目:(事件)双击窗体 (响应)求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码:Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题题目:(事件)单击窗体 (响应)求100以内偶数的和,并将结果输出在窗体上。 将结果存入变量SUM中 代码:Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目:(事件)单击窗体 (响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码:Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目:(事件)双击窗体 (响应)求100以内奇数的和,并将结果输出在窗体上。

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

月考上机试题 一.选择题:(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A.Ltrim B.Rtrim C.Trim D.Mid 3.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮,然后编写如下事件过程:C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m,x,y,均为Integer型变量,则执行下面语句后m值是m=1:X=2:Y=3 m=IIf(X>Y,X+Y,X-Y) A.-1 B.0 C.1 D. 2 7.设a=″Visual Basic″,下面使b=″Basic″的语句是 A.b=Left(a,8,12) B.b=Mid(a,8,5) C.b=Right(a,5,5) D.b=Left(a,8,5) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块,它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1 _ Click() Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X,Y End Sub 程序运行时,三次单击命令按钮Command1后,窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二.填空题(3*4) 1.计算1*2*3*...*3000,当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ____t=t*j______________ If t>3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后,输出的结果是_BBBB______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序:程序运行后,单击窗体,则在窗体上显示的是6 5 4 3,请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i) Next i End Sub 三.编程题:(34*2) 1. 用随机函数产生10个不大于100的整数存入一维数组a中,并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。

VB语言程序设计试题库

VB程序设计 一、判断题 1. 同一Form窗体中的各控件可以相互重叠,其显示的上下层次的次序不可以调整。( X ) 2. 一个对象的若能识别多个事件,我们只能对其中一个事件编程( ) 3. 单选按钮与复选框对象的Value属性类型不同,且只能取值True和False。(√) 4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。( ) 5. 图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值。(√) 6. “A=B=C”是一个合法的Visual Basic语句。( ) 7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时,组合框会自动把这一条目添加到它的列表框中。( ) 8. Visual Basic程序的运行可以从 Main()过程启动,也可以从某个窗体启动。(√) 9. 在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外。( ) 10. 对于文件系统控件,当驱动器控件Drivel中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应的改变,可以在Drive1中的Change事件中使用如下命令。Dir1. Path= Drive1. Drive(√) 11. 滚动条控件可作为用户输入数据的一种方法。(√) 12. 单选按钮控件和复选框控件都具有Value属性,它们的作用完全相同。( ) 13. 静态变量是一种局部变量,当原过程再次被执行时,静态变量的初值是上一次过程调用后的值。(√) 14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角,如果要把坐标原点放在其他位置,则需使用自定义坐标系统。(√) 15.注释语句REM可自成一语句。(√) 16. 用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发 KeyPress ( ) 17. 组合框兼有文本框和列表框两者的功能,用户可以通过键人文本或选择列表中的项目来进行选择。(√) 18. 当定时器控件的Interval属性值设置为0时,会连续不断地激发Timer事件。( )19.执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。(√) 2.句“FontName="宋体" ”与“Form1.FontName="宋体" ”的作用完全相同,无一例外。( ) 21局变量只能在窗体的通用区内用Public或global定义。( ) 22. 在盘驱动器列表框Drivel的Change事件过程中,代码Dirl. Path=Drivel . Drive 的作用是:当Drivel的驱动器改变时,Dirl的目录列表随不同驱动器作相应改变。(√)

VB程序设计考试题库——考试专用

程序设计题 1、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是"正数"、"负数或"零",并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目:(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目:单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上。 4、题目:(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项,并求其和,将和保存在变量s中。 5、题目:(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚),求出其所有的换法,把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目:单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目:(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为: ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值,并输出在窗体上。将最大值,最小值,平均值分别存入变量Max,Min,Aver中 8、题目:(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目:(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L 中。 10、题目:(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为:" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 4题 Dim i, j, k, m As Integer s = 0 :i = 2:j = 1 For k = 1 To 10 s = s + i / j m = j Print (CStr(i)) & "/" & CStr(j) j = i i = i + m Next 5题 Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k))

《VB程序设计》试题及答案

2018-2019 第二学期计算机专业 每个窗体的二 《 VB 程序设计》试题( A 卷) 进制数据文件,(共 10道 20分) 一、选择题 控件的属性值 等 1、一个工程必须包含的文件的类型是() A)*.vbp *.frm *.frx B)*.vbp *.cls *.bas C) *.bas *.ocx */res D)*.frm *.cls *.bas 2、以下关于 VB 数据类型的说法,不恰当的是() A)VB 6.0提供的数据类型主要有字符串型和数值型,此外还有班级:字节、货币、对象、日期、布尔和变体数据类型等 B)目前 Decimal 数据类型只能在变体类型中使用 C)用户不能定义自己的数据类型 D)布尔型数据只能取两种值,用两个字节存储 姓名: 3、以下各项,可以作为 VB 变量名的是() A) Book B)2_Seek C)123.58D)Book-1 学号:4、函数 Int(Rnd(0)*10) 是在 ()范围内的整数。 A)(0,1)B)(1,10)C)(0,9)D)(1,9) 5、要将名为 MyForm 的窗体显示出来,正确的使用方法是() A) MyForm.Show B)Show.MyForm C) MyForm .Load D)MyForm .Show 6、输入代码时, VB 可以自动检测 ()错误。 A)语法错误B)编译错误C)运行错误D)逻辑错误 7、单击窗体上的关闭按钮时,触发的事件是() A )Form_Initialize()B)Form_Load() C)Form_Unload()D)Form_Click() 8、.用于将窗体上的对象分组的控件是() A )列表框B)组合框C)标签D)框架 9、下面语句正确的是() A ) If x<3*y And x>y Then y=x^3 B) If x<3*y And x>y Then y=3x C)If x<3*y : x>y Then y=x^3D)If x<3*y : x>y Then y=x**3 10、 1.下列程序段的执行结果为 a=5 For k=1To 3 a=a + k Next k Print k; a A)-1 6B)-1 16C)411D)1121 二、程序设计(共4道题 80分) 1、利用TextBox、Label、Commandbutton控件编写如下功能和如 下用户界面的 VB 程序

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