vb第三部分 练习题

Case 2

Print \您的成绩为良好!\ Case 3 Print \您的成绩为一般\ Case Else

Print \您的成绩一般以下!\ End Select End Sub

11 新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下:

Private Sub Command1_Click() Form1. hide Form2. show End Sub 试补充完整。

12 本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空。

图4.2 程序运行界面

Private Sub Command1_Click() Radomize

n=CInt(Text1.Text) n1=0 n2=0

For i=1 To n r=Int(Rnd*2) If r= 1 Then

n1=n1+1 Else n2=n2+1 End If Next i Text2.Text=n1 Text3.Text=n2 End Sub 三 程序设计题

1 已知平面坐标系内两点的坐标,求两点间的距离。

2 编写程序,要求用户利用InputBox()函数输入如下信息:姓名、年龄、通讯地址、邮政编码、联系电话,然后将输入的数据用Print方法以适当的格式在窗体上显示出来。

3 编写程序,设计一个退出按钮,根据用户做出的响应来确定是否结束程序(利用MsgBox来设计)。 4 任给定一年,判断该年是否为闰年,并根据给定月份来判断属于哪个季节?(闰年的条件是:年号能被4整除但不能被100整除,或者能被400整除。)

5 从文本框内输入三角形的3条边a、b、c,判断它们是否能构成三角形,如果能,则计算出面积,如果不能,则提示信息。

6 设计一个滚动字幕,其标题为“VB程序设计”,使其能自右向左反复移动,当把鼠标移到该字幕上时,停止移动,同时字体颜色变为红色,移开以后,字幕继续移动,字体变为原来的颜色。

7 在文本框内输入一年中的12个月份,如果输入1、2、3月份,则在标签上显示春季,如果输入4、5、6月份,则显示夏季,如果输入7、8、9月份,则在标签上显示秋季,如果输入10、11、12月份,则显示冬季,其它情况则显示您的输入有误,请重新输入,使用命令按钮的单击事件。 8 利用单选按钮与复选按钮控制文本框内字体的字体与字形。

练习题三

一、选择题

1.以下正确的For?Next结构是 B A) For x=1 To Step 10 B) For x=3 To -3 Step -3 ? ? Next X Next x

C) For x=1 To 10 D) For x=3 T0 10 Step 3 re:? ? Next x Next Y If i=10 Then GoTo re 2.假定有以下循环结构 Do Until 条件

循环体 Loop

则正确的描述是 B

A)如果“条件”是一个为0的常数,则一次循环体也不执行 B)如果“条件”是一个为0的常数,则至少执行一次循环体 C)如果“条件”是一个不为0的常数,则至少执行一次循环体 D)不论“条件”是否为“真”,至少要执行一次循环体 3.下列循环语句能正常结束循环的是 C A) I=5 B) I=5 Do Do

I = I + 1 I = I + 2

Loop Until I < 0 Loop Until I =10 C) i=10 D) i=10 Do Do I=I – 1 I=I-2

Loop Until I < 0 Loop Until I =1 4.假定有以下程序段 For I =l To 3

For J=5 To 1 Step -1 Print I*J Next J,I

则语句“Print I*J”的执行次数是 A A)15 B)16 C)17 D)18 5.以下程序段的输出结果为 B X=1 Y=4 Do Until Y>4 X=X * Y Y=Y + 1 Loop Print X

A)1 B)4 C)8 D)20

6.执行下面的程序段后,X的值为 A X=5

For I=1 To 20 Step 2

X=X+I\\5 Next I

A)21 B)22 C)23 D)24

7.下面程序段的运行结果为 B Private Sub Command1_Click() For i = 3 To 1 Step -1 Print Spc(5 - i); For j = 1 To 2 * i - 1 Print \ Next j Print Next i

End Sub

A) * B) ***** C) ***** D) ***** *** *** *** *** ***** * * * 8.在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() For I = 1 To 4 X=4 For j =1 To 3 X=3 For k=1 To2 X=X+6 Next k

Next j Next I Print x End Sub

程序运行后,单击命令按钮,输出结果是 B A)7 B)15 C)157 D)538

9.在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_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)

联系客服:779662525#qq.com(#替换为@)