VB操作题部分

Vb填空题、操作题部分试题

切勿丢失

VB操作题部分

VB——1

打开“考生文件夹18”文件夹中的文件“工程”，进行以下操作后并保存！填空完成程序，Private Sub Command1_Click()

Dim i As Integer, x As Integer

Dim s As Integer

s = 0

x = 0

For i = 1 To 100

1

使程序实现如下功能：从键盘输入10个100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值。

Private Sub Command1_Click()

Dim x As Integer

x = InputBox("请输入您的数：")

Print "您输入的数有" & x; "、";

Max = x: Min = x: Sum = x

For i = 2 To 10

x = InputBox("请输入您的数"): Print x;

Sum = Sum + x

If

Max>x Then Max = x

If

Min

Next i

Print "平均值" &

Sum/10

Print "最大数" & Max, "最小数" & Min

End Sub

VB——2

打开“考生文件夹15”文件夹中的文件“工程”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：点击“计算”按钮后，在窗体上输出“1+2+……+100”的和，并求出1到100之间能被19整除的整数的个数。运行结果如下图：

s=s+i

If

i mod 19 =0

Then

x=x+1

Next i

Print "1+2++100=" & s

Print "1到100之间能被19整除有:" & x & "个数"

End Sub

VB——3

打开“考生文件夹9”文件夹中的文件“工程”，进行以下操作后并保存！

利用字符串函数Ucase(x)和转换函数Asc(x)填空完成程序，当单击窗体后在窗体上显示如下图所示的结果：

Private Sub Form_Click()

Dim str1 As String, str2 As String

Dim str3 As String, i As Integer

str1 = "f"

For i = 1 To

2

str2 = UCase(str1)

str1 = str2 & str1

str3 = str3 & str1

str1 = Chr(Asc(str1) + i)

2

Next i

Print

str3

End Sub

VB——4

打开“考生文件夹8”文件夹中的文件“工程”，进行以下操作后并保存！

填空完成程序，当点击“画图”按钮时，程序能打印出下面所示的图案：

@

@@

@@@

@@@@

@@@@@

@@@@@@

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

For i = 1 To

6

Print Tab(10);

For j = 1 To

i

Print

“@”;

Next j

Print

Next i

End Sub

VB——5

打开“考生文件夹7”文件夹中的文件“”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：

已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，单击“计算”按钮，在文本框Text1中显示出三角形的面积，操作完成后保存并关闭应用程序。

Private Sub Command1_Click()

a = 15

b =

18

s = 0.5 * a * b *

sin(41 * 3.14 / 180)

= s

End Sub

VB——6

打开“考生文件夹14”文件夹中的文件“工程”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：制作一个成绩等级程序，要求在文本框Text1中输入成绩，点击“等级”按钮时，显示相应的等级。具体等级划分为：90分以上为“优”，80到89分为“好”，70到79分为“良”，60到69分为“及格”，60分以下为“不及格”。

Private Sub Command1_Click()

Dim x As Integer, grade As String

x =

Select Case x

Case 90 To 100

grade = "优"

Case 80 To 89

grade = "好"

Case 70 To 79

grade = "良"

Case 60 To 69

grade = "及格"

Case Is < 60

grade = “不及格”

Case Else

MsgBox "请重新输入"

End Select

Print "该学生成绩为:" +

grade

End Sub

VB——7

打开“考生文件夹12”文件夹中的文件“工程”，进行以下操作后并保存！

填空完善程序，使程序实现如下功能：在窗体上有Text1、Text2两个文本框，在文本框Text1中输入1到20之间的整数(包括1和20)，然后单击命令按钮

3

Command1则在Text2中显示50。

Private Sub Command1_Click()

n =

Select Case

n

Case

1 to 20

x = 50

VB——9

打开“考生文件夹11”文件夹中的文件“工程”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：

程序运行后，在文本框Text1中输入“abcd”，单击命令按钮，在标签Label1中显示出“bcd”。

Private Sub Command1_Click()

strtext = InputBox("请输入")

=

strtext

End Sub

Private Sub Text1_Change()

n = Right(Trim(),3)

End Sub

VB——10

打开“考生文件夹21”文件夹中的文件“工程”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。收费标准：车程在3公里以内（包括3公里）的统一收费12元； 超过3公里但不超过10公里的（包括10公里），则超过3公里的部分每公里收费2元；如果车程超过10公里，则超过10公里的部分每公里收费3元。

Private Sub Command1_Click()

x = Val()

If x > 0 And x <= 3 Then

y=12

If x > 3 And

x < 10

Then y = 12 + (x - 3) *

2

If x > 10 Then y =

26+(x-10)* 3

Case 2, 4, 6

x = 20

Case Is < -10

x = 30

Case 15

x = 40

End Select

= x

End Sub

If x <= 0 Then y = 0

n = x & "公里"

n = y & "元"

End Sub

VB——8

打开“考生文件夹10”文件夹中的文件“工程”，进行以下操作后并保存！

填空完成程序，使程序实现如下功能：填空完成程序，使程序实现如下功能：

程序运行后，单击“初始值”命令按钮对数组a的各元素赋值；单击“求和”命令按钮，求出数组a的各元素之和，并在Text1中显示出来，最后的结果如下图所示。

Dim a(4, 3) As Integer

Dim i, j As Integer

Private Sub Command1_Click()

For i = 1 To 4

For j = 1 To 3

a(i,j)= i + j

Next j

Next i

End Sub

Private Sub Command2_Click()

For j = 1 To 4

For i = 1 To 3

s = s +

a(j,i)

Next i

Next j

=

End Sub

四

VB填空题部分

1．（选修)将数学表达式“a+2ab+b ”按原顺序转换为VB表达式为：a*a + 2*a*b + b*b；

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a + b = c”的形式，但形如“a

22

6． (选修)阅读如下VB程序，当在Text1中输入5、Text2中输入6，单击命令按钮后，在Label1中显示的数是5、在Label2中显示的数是6。

Dim x, y, t as Integer

or b”表达式中的空格要保留。

2．(选修)在字符串“Visual Basic 6.0”中截取字符串“Visual Basic”的表达式为：LEFT (“Visual Basic

6.0” ,12)；

3． (选修)将二进制数(1101)2和(1110)2分别转化为十进制数是13和14。

4． (选修)完善程序，从Textl中输入一个数，该数大于或等于60时，在Label1中显示“及格”，否则显示“不及格”：

Private Sub Command1_Click( )

Dim a As Single

a = Val ( )

If a

>= 60 Then

n = "及格"

End If

If a < 60 Then

n = "不及格"

End If

End Sub

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a + b = c”的形式，但形如“a or b”表达式中的空格要保留。

5． (选修)已知X=True、Y=False、Z=True，请根据下列流程图判断最后输出的信息是打印信息(“打印信息”还是“不打印信息”)。

x =

y =

If x < y Then

t = x

x = y

y = t

End If

n = x

n = y

7． (选修)阅读如下VB程序段，运行程序后，当n的值为5时，a的值为120。

a = 1

For i = 1 To n

a = a * i

Next i

8． (选修)有如下VB程序段，功能是找出100以内的奇数中能被7整除的正整数，并将它们累加起来。程序中划线处的语句有错，正确的语句应该是：If

i mod 7 =0 Then

Y=Y+i。

Y = 0

For i=1 To 100 Step 2

If i7=0 Then Y=i+i

Next i

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a + b = c”的形式，但形如“a or b”表达式中的空格要保留。

9． (选修)填空完善程序，求出S=1!+2!+3!+4!+5!+……+n!的值：

S = 0

t = 1

for i = 1 To

n

t=t*i

S = S + t

五

next i

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a + b = c”的形式。

10．(选修)完成填空，当在Textl中随意输入x的值后，单击计算按钮，求 y = |8x - 7|的值并将求得的值显示在Text2中。

Private Sub Command1_Click( )

Dim x As Single

Dim y As Single

x = val()

y =

Abs(8*x-7)

13．(选修)如果要想从“2010河南欢迎你”中获得“河南”2个字符，方法为：Mid(“2010河南欢迎你” ,

5 ,

2)。

14． (选修)下图是计算“0到20之间奇数之和”的算法流程图，SUM用于累加求和，请将其补充完整：

= y

End Sub

11．(选修)完成下面填空，实现输出如图所示的九九乘法表功能：

Private Sub Command1_Click()

Dim I As Integer, J As Integer

Dim Str As String

For I = 1 To

9

For J = 1 To

I

15． (选修)下面是一段Visual Basic程序，运行该程序后，语句sum=sum+i*(i+1)共执行了5次，Text1中最后输出结果是190 。

Private Sub Command1_Click( )

Dim sum , i As Integer

sum = 0

For i = 1 To 9 Step 2

sum = sum + i * (i+1)

Next i

=sum

End Sub

16．(选修)写出判断整数n能同时被13和17整除的VB表达式:

n

Mod 13 =

0

And n

Mod 17 =

0；

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a + b = c”的形式，但形如“a or b”表达式中的空格要保留。

Str = Str &” “ & J & “*” & I & “=” & I*J

Next J

Print Str

Str=””

Next I

End Sub

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a + b = c”的形式，但形如“a or b”表达式中的空格要保留。

12．(选修)在VB6.0中，函数Int(-2.9)返回的值是

-3，“Print 2-2”的输出结果是0，函数Abs(-2.9)返回的值是2.9。

六

17．(选修)填空完成下面程序，求n的阶乘，n值由键盘输入。

Private Sub command1_click( )

Dim n as Integer, m as Long , I as Integer

n=

m=1

n= py

End Sub

注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a + b = c”的形式，但形如“a

or b”表达式中的空格要保留。

for I=1 to

m= n

*I

= m

Next i

end sub

注：表达式中多余的空格不要保留，例如a加b等

于c应写成“a+b=c”，而不要写成“a + b = c”的形式，

但形如“a or b”表达式中的空格要保留。

19．(选修)阅读如下VB程序段，请问此程序段的功能

是画出图形C。(请在下列答案中选择一个答案的字母

填入空格)

20．(选修)填空完成程序，实现向Text1文本框中输入

任意一个数，判断这个数是正数、负数、还是零，并输

出判断结果。

程序如下：

Private Sub Command1_Click( )

Dim a As Single

Dim py As String

a=Val()

If a>0 Then py="正数"

If a=0 Then py="零"

If

a<0 Then py="负数"

七

补充知识点

1常用控件：

控件 对象的类型 前缀 名字举例

Form frm frmfind

窗体

Command button cmd cmdok

命令按钮

Label lbl lblinput

标签

TextBox tmr tmrClock

文本框

若命令按钮(Command)的Enabled属性设置为True时按钮有效，设置为False时按钮无效

2对象的属性、方法和事件

1属性

属性

Name 设置对象的名称

Caption

决定控件中显示的内容（文字）

Text

决定窗体中文本框中显示的内容(初始为空白)

Height 决定控件高度

Width

决定控件宽度

TOP

决定控件的靠顶部位置

Left 决定控件的靠左边位置

Font

设置控件中字体格式

BackColor 设置控件背景色

ForeColor 设置控件的前景色

BorderStyle

设置控件的边框风格

Alignment

即标签文字对齐属性：(0)Left Justify时文本左对齐；(1)Right Justify时文本右对齐；设置为(2)Center时文本居中。

设置为False时输入控件Caption中文字超过控件宽度时超出部分被裁剪掉，设置为True时，控件可水平扩充，以适应控件Caption属性。

决定控件是否可见

决定控件运行时是否有效

AutoSize

Visible

Enabled

对象.属性＝属性值

对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过程序代码设置,方法如下

例：给文本框“Txt123”的“Text”属性赋值为字符串“20”，代码如下

=”20”

变量＝对象.属性

如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下

例：读取文本框“txt123”的“Text”属性的代码如下

a =

3.流程图标识

开始或结束

输入或输出

判断

处理或运算

连接点

流程线

八

Trim函数实例

Dim a as string

Dim b as string

a=”I’am a student”

b=trim(a)--------这时候b=”I’amastudent”

Trim函数主要去掉语句中的空格。

4.循环语句

格式一： Do While 条件

循环体

Loop

当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。（这种循环结构我们也称之为当循环）

格式二： Do

循环体

Loop Until条件

这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件P是否成立。如果不成立，就重复执行循环体A，直到条件P成立退出循环体。

格式三：Next 循环放置在另一个 Next 循环中，组成嵌套循环。不过在每个循环中的 counter 要使用不同的变量名。下面的体系结构是正确的：

For I = 1 To 10

For J = 1 To 10

For K = 1 To 10

...

Next K

Next J

Next I

嵌套循环先执行内部的循环体后执行外不循环体，内外循环体是相对的。内部循环体执行一个周期，外部循环体执行一次。以这个实例，k执行了1000次，j执行了100次，i执行了10次。

5.数组

数组是一组相同类型的数据的集合。数组用一个统一的名字代表逻辑上相关的一批数据。每个元素用下标变量来区分。数组使用必须先声明后使用。

一维数组声明格式

Dim 数组名([<下界>to]<上界>)[As<数据类型>]

例1 dim a(1 to 10) As Integer ‘a数组有10个元素

或者： Dim 数组名[<数据类型符>]([<下界>to]<上界>)

dim a%（1 to 10）

通过循环给数组赋值

For i= 1 to 10

a(i)=inputbox(“输入第 （”& I &”） 的值) ‘循环10次，每次填入一个数字分别存入a（1），

Next I a(2),a(3)……a（10）

九