admin 管理员组

文章数量: 1086019


2024年3月27日发(作者:织梦网站更换系统)

(完整word)VB填空题及答案

一、填空题

1、Visual Basic对象可以分为两类,分别为 和 。

2、为了选择多个控件,可以按住 键,然后单击每个控件。

4、 浮点数由3部分组成,即符号、 和尾数。

5、下述语句段在运行时的显示结果是 。

Cls

x=10.34 + 8

Print Len(x)

x

2

y

2

a

b

转换成程序设计中的表达式为 .

6、将代数式

7、 关系式x≤—5或x≥5所对应的布尔表达式是 。

9、下列程序的功能是:当x〈50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x〉100时,没有意义。请填

空。

Private Sub Command1_Click()

Dim x As Single

x=InputBox("请输入x的值!")

Case Is < 50

y=0。8 * x

Case 50 To 100

y=0。7 * x

Print "输入的数据出界!”

End Select

Print x, y

End Sub

11、 以下程序段的作用是将26个小写字母逆序打印出来,请补充完整。

For i=122 To

Print ;

Next i

12、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

x=0

Do Until x=—1

a=InputBox("请输入第一个数字a的值")

a=Val(a)

b=InputBox(”请输入第二个数字b的值")

b=Val(b)

x=InputBox(”请输入第三个数字x的值”)

x=Val(x)

a=a + b + x

Loop

Print a

End Sub

程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为 。

13、执行下面的程序段,x的值为 。

55

(完整word)VB填空题及答案

For i=1 To 9

a=a + i

Next i

x=Val(i)

MsgBox x

14、以下程序的功能是统计字符串中“i”的个数,请填空。

a$=”Beijing University of Technology"

Dim n As Integer

n=Len(a$)

For i=1 To n

b$=

If Then x=x + 1

Next i

Print ”x="; x

15、下列程序的输出结果为 。

num=2

While num 〈=3

num=num + 1

Print num

Wend

16、下列程序是判断一个整数(〉=3) 是否为素数,请补充完整。(在数学上,判断素数的依据是:若n不能被

2-Sqr(n)中的任何一个数整除,则n是素数,否则不是。)

Dim n As Integer

n=InputBox(”请输入一个整数(〉=3) ”)

k=Int(Sqr(n) )

i=2

swit=0

While i <=k And swit=0

If n Mod i=0 Then

Else

End If

Wend

If swit=0 Then

Print n; "是一个素数。”

Else

Print n; ”不是一个素数。”

End If

17、每一个窗体或者控件都有一个名字,为提高程序的可读性,可以用前缀的方式来表示对象的类型,如

Form的前缀为frm,则Image的前缀为 ,Picture的前缀为 。

18、要使标签的背景样式为不透明,应将BackStyle属性设置为 。

19、将C盘根目录下的图形文件装入图片框Picture1的语句是 。

20、当对象得到焦点时,会触发 事件,当对象失去焦点时将触发

事件。

21、有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2,则输出,否则,

将焦点定位在文本框中,并清除文本框的内容。

x=Val()

56

(完整word)VB填空题及答案

If Then

Print x

Else

Text1。Text=”"

End If

22、下面的程序用于根据文本框Text中输入的内容进行以下处理:

若Text为1,则打印“您的成绩为优秀!";若Text为2,则打印“您的成绩为良好!”

若Text为3,则打印“您的成绩为一般”;否则打印“您的成绩一般以下!”,请填空。

Private Sub Command1_Click()

Select Case Val()

Case

Print ”您的成绩为优秀!”

Case

Print "您的成绩为良好!"

Case

Print "您的成绩为一般"

Case Else

Print ”您的成绩一般以下!”

End Select

End Sub

24、如果要将形状控件的内部设置为水平线,应将FillStyle属性设置为 。

25、为了使计时器控件Timer1每隔0。5秒触发一次Timer事件,应将Timer1控件的

属性设置为 。

26、在修改列表框内容时,RemoveItem方法的作用是 。

28、窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Labell、Caption属性为

“Sum”的标签,一个名称为Command1、标题为“计算”的命令按钮.程序运行后,将把1~100之间能够被7整

除的数添加到列表框中。如果单击“计算”按钮,则对List1中的数进行累加求和,并在文本框中显示计算结

果,如图所示。以下是实现上述功能的程序,请填空。

Private Sub Form_Load()

For i=1 To 100

If i Mod 7=0 Then

End If

Next

End Sub

Private Sub Command1_Click()

Sum=0

For i=0 To

Sum=Sum+

Next

Text1。Text=Sum

57

(完整word)VB填空题及答案

End Sub

30、下面程序的功能是产生10个小于100(不含100) 的随机正整数,并统计其中5的倍数所占比例,但程序不

完整,请补充完整。

Randomize

Dim a(10)

For j=1 To 10

a(i) =Int( )

If Then k=k + 1

Print a(j)

Next j

Print

Print k / 10

31、在一个工程中有两个窗体,窗体Form1上有一个命令按钮Disp,单击该按钮,Form1窗体隐藏,显示Form2

窗体,程序如下,请补充完整。

Private Sub Disp_Click ()

Me。Hide

Form2。

End Sub

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

题1—1

1—2

答预定义对象

用户定义对象

题7

答X<=5 or x〉=5

题11-1

11—2

答97 step —1

Chr$(i)

题14—2

15

答B$=”i”

3、4

题17—1

17—2

18

2

Ctrl或

Shift

4

5

指数

9—1

Select Case x

5

6

Sqr((x*x+y*y)/(a+b))

9-2

Case Else

12

12

16—1

Swit=1

19

58

13

10

16—2

I=I+1

14-1

Mid$(a$,I,I)

(完整word)VB填空题及答案

img

20—1

GotFocus

21—2

pic

20-2

1

e=LoadPicture(“C:moo

")

21—1

X mod 4=1 and x mod 5=2

22-2

2

24

2

22—3

3

25-1

Interval

LostFocus

22—1

Text1。1

SetFocus

25-2

500

26

用来删除列表中指定的项目

28—1

28—2

28—3

List1。List1。List1。list(i)

AddItem i

ListCount-1

30—1

99*rnd+1

30—2

31

A(j) mod 5=0

Show

59


本文标签: 程序 文本框 对象 窗体 输入