visual basic pdf
第五章课后习题答案
一、问答题
1.内部控件时由VB提供，扩展名为EXE的文件，出现在工具箱中。ActiveX控件是扩展名为OCX的独立文件，是工具箱的扩充部分。
2.name就是控件的名字，在代码里用这个名字来调用这个控件。而caption是控件上显示的标题。
3.框架用于窗体上对象分组，建立一个框架控件后，在框架控件中直接建立其他控件。
4.复选框用于两种状态选择一种，且各自独立；单选按钮用于多种功能中选择其中一种，必须成组出现。
5.列表框可作为输入控件，用于在很多项目中做出选择；组合框结合了列表框和文本框的功能。
6.滑动条和滚动器功能相似，进度条主要作为数量的指示器，滚动条属标准控件，滑动器和进度条属ActiveX控件。
7.图像框(Image)有Stretch属性，没有AutoSize属性，没有print方法。
图片框(PictureBox)有AutoSize属性，没有Stretch属性，可以使用print方法。
8.Interval=1000
9.MouseDown-->MouseUp-->Click
10.只有按下键盘上能产生ASCII码的按键时才会产生keypress事件，而按键盘上任意键都会产生KeyDown事件。
二、选择题
BDADD DDDCC
三、编程题
1.
Text1.MultiLine=True(此属性在窗体设计时设置)
Private Sub Command1_Click()
text1=""
If Option1.Value=True Then Text1=Text1+Option1.Caption+Chr(13)+Chr(10)
If Option2.Value=True Then Text1=Text1+Option2.Caption+Chr(13)+Chr(10)
If Option3.Value=True Then Text1=Text1+Option3.Caption+Chr(13)+Chr(10)
If Check1.Value=1Then Text1=Text1+Check1.Caption+Chr(13)+Chr(10)
If Check2.Value=1Then Text1=Text1+Check2.Caption+Chr(13)+Chr(10)
If Check3.Value=1Then Text1=Text1+Check3.Caption+Chr(13)+Chr(10)
End Sub
2.
Text2.PasswordChar="*"(此属性在窗体设计时设置)
Text3.MultiLine=True(此属性在窗体设计时设置)
Private Sub Command1_Click()
Dim f As Boolean,i As Integer
f=True
Text3=""
Text3=Text3+"你的学号是："+Text1+Chr(13)+Chr(10) Text3=Text3+"你的密码是："+Text2+Chr(13)+Chr(10) Text3=Text3+"你是："+Combo1+Chr(13)+Chr(10) For i=0To Combo1.ListCount-1
If Combo1=Combo1.List(i)Then f=False
Next i
If f Then Combo1.AddItem Combo1
End Sub
3.
Private Sub Command1_Click()
Dim f As Boolean,i As Integer
f=True
Picture1.Cls
Picture1.Print"你的学号是："+Text1+Chr(13)+Chr(10) Picture1.Print"你的密码是："+Text2+Chr(13)+Chr(10) Picture1.Print"你是："+Combo1+Chr(13)+Chr(10)
For i=0To Combo1.ListCount-1
If Combo1=Combo1.List(i)Then f=False
Next i
If f Then Combo1.AddItem Combo1
End Sub
4.
Dim x%,y%
Private Sub Form_Load()
x=Image1.Height
y=Image1.Width
End Sub
Private Sub HScroll1_Change()
Image1.Height=x/10*HScroll1.Value
Image1.Width=y/10*HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
Image1.Height=x/10*HScroll1.Value
Image1.Width=y/10*HScroll1.Value
End Sub
5.
Private Sub Command1_Click() Timer1.Enabled=True
End Sub
Private Sub Command2_Click() Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer()
Label1.Left=Label1.Left+100
If Label1.Left>Form1.Width Then
Label1.Left=-Label1.Width End If
End Sub
6.
Dim x
Private Sub Command1_Click() Text1=Time()
x=0
Timer1.Enabled=True
Command1.Enabled=False Command2.Enabled=True
End Sub
Private Sub Command2_Click() Text2=Time()
Text3=x
Timer1.Enabled=False
Command1.Enabled=True Command2.Enabled=False
End Sub
Private Sub Form_Load() Command1.Enabled=True Command2.Enabled=False
Timer1.Enabled=False
Text1=""
Text2=""
Text3=0
End Sub
Private Sub Timer1_Timer()
x=x+1
Text3=x
End Sub
第六章课后习题答案一、选择题
CBBBD ACABC
二、编程题
1.
Private Sub Form_Click()
Dim i%,s%,ave!,n%
Dim a(10)
For i=1To10
a(i)=InputBox("Please input a number:")
s=s+a(i)
Next i
ave=s/10
For i=1To10
If a(i)>ave Then n=n+1
Next i
Print"ave=";ave
Print"n=";n
End Sub
2.
Private Sub Form_Click()
Dim c1$,c2$,n%,i%
c1=InputBox("Please input a string:")
n=Len(c1)
For i=1To n
c2=c2+Mid(c1,n-i+1,1)
Next i
Print"c2=";c2
End Sub
3.
Private Sub Form_Click()
Dim c1$,c2$,n%,i%,n1%,n2%
c1=InputBox("Please input a string:")
n=Len(c1)
For i=1To n
c2=Mid(c1,n-i+1,1)
If c2>="A"And c2<="Z"Then n1=n1+1 If c2>="a"And c2<="z"Then n2=n2+1 Next i
Print"n1=";n1
Print"n2=";n2
End Sub
4.
Option Base1
Private Sub Form_Click()
Dim a(10)As Integer
Dim i%,j%,temp%
For i=1To10
a(i)=InputBox("please input:")
Print a(i);
Next i
Print
For i=1To9
For j=i+1To10
If a(i)<a(j)Then
temp=a(i)
a(i)=a(j)
a(j)=temp
End If
Next j
Next i
For i=1To10
Print a(i);
Next i
End Sub
5.
Option Base1

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。