一、填空题
1、Visual Basic对象可以分为两类，分别为             和              。
2、为了选择多个控件，可以按住            键，然后单击每个控件。
4、printform 浮点数由3部分组成，即符号、              和尾数。
5、下述语句段在运行时的显示结果是              。
Cls
x=10.34 + 8
Print Len(x）
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的值为            。
  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盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是            。
20、当对象得到焦点时，会触发            事件，当对象失去焦点时将触发
            事件。
21、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2,则输出,否则，将焦点定位在文本框中，并清除文本框的内容。
  x=Val（Text1.Text)
  If                Then
      Print x
  Else
Text1。Text=”"
                 
  End If
22、下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为1,则打印“您的成绩为优秀!"；若Text为2，则打印“您的成绩为良好!”
若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下！”，请填空。
Private Sub Command1_Click（)
  Select Case Val（Text1.Text）
      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
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
2
答案
预定义对象
用户定义对象
Ctrl或Shift
题序
4
5
6
答案
指数
5
Sqr((x*x+y＊y）/（a+b））
题序
7
9—1
9-2
答案
X<=5 or x〉=5
Select Case x
Case Else
题序
答案
题序
11-1
11—2
12
13
14-1
答案
97 step —1
Chr$(i)
12
10
Mid$(a＄，I，I）
题序
14—2
15
16—1
16—2
答案
B＄=”i”
3、4
Swit=1
I=I+1
题序
17—1
17—2
18
19
答案
img
pic
1
Picture1.Picture=LoadPicture(“C:\moon.jpg")
题序
20—1
20-2
21—1
答案
GotFocus
LostFocus
X mod 4=1 and x mod 5=2
题序
21—2
22—1
22-2
22—3
答案
Text1。SetFocus
1
2
3
题序
24
25-1
答案
2
Interval

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