习水县第一中学高二年级信息技术（VB）考试题

下列数据类型是表示整型数的是（  ）

下列数据类型是表示长整型数的是（  ）

下列数据类型是表示单精度型数的是（  ）

下列数据类型是表示双精度整型数的是（  ）

下列分别表示变量和常量的是（  ）

 下列数据属于字符串常量的是（ ）

 在VB语言中，下列数据中合法的长整型常量是（ ）

 在VB语言中，下列变量中合法的变量是（ ）

 在VB语言中，下列表达式中合法的表达式是（ ）

当执行以下过程时，在窗体上将显示 (   )
Private Sub Command1_Click()
Print "VB", "Hello!"; "VB"
End Sub

当执行以下过程时，在窗体上将显示 (   )
Private Sub Command1_Click()
Print "VB",(4+5); "VB"
End Sub

 输入数据的函数的格式A=Inputbox（     ，     ，     ，    ）,括号中对应应填的数据分别是（   ）

If…then…如果……那么的单行格式为（  ）

If…then…如果……那么的块壮格式为（  ）

 块形式的If ……then……else的格式为

 多重选择语句格式正确的是（   ） 

“如果你成绩是大于等天60为及格，否则为不及格”的程序正确的是（  ）

 For －next循环语句的格式是（  ）

 直到型循环结构其格式为（  ）

当型循环结构其格式为（  ）

常量的定义格式为`：   ＿＿   常量名  As  类型= 表达式；变量的定义格式为:  ＿＿   变量名  As 类型。

Private Sub Command1_Click()
a = B
a = 123
a = a + 10
Print a
End Sub
计算结果为A= ＿＿ 

赋值语句的基本格式： ＿＿ = ＿＿ ，“=”是 ＿＿ 

 以下是“已知长方体的长、宽、高，编写一个程序，求长方体的全面积和体积。”请在括号内完善相应程序。

Private Sub command1_click()
Dim A As Single, B As Single, C As Single, S As Single, V As Single
A =  ＿＿ ("A=", "输入长")
B = InputBox("B=", "输入宽")
C = InputBox("C=", "输入高")
S = 2 * (A * B + A * C + B * C)
V =  ＿＿   
Print "全面积S=";  ＿＿ ; "体积V=";  v 
End Sub

完善下列程序，在空白处填入正确的答案
Private Sub command1_click()
Dim x As Integer
x = InputBox("请输入学生成绩")
Select Case  ＿＿  
Case  ＿＿  >= 90   
Print "优秀" 
Case 80  ＿＿  89   
Print "良好" 
Case 70 To 79   
Print " 中等" 
Case 60 To 69   
Print "及格" 
Case Else   
Print "不及格"
End Select
End Sub

 当初值小于终值时，步长为 ＿＿ 数；当初值大于终值时，步长为 ＿＿ 数

 求100+98+96+....+2的和：  
Dim i as integer, s as integer
S=0
For i=  ＿＿   to   ＿＿  Step  ＿＿ 
s= ＿＿ 
Next i
Print s

当型循环可以不执行循环体，直到循环至少执行 ＿＿ 次循环体. 当型循环 ＿＿ 判断后执行， 直到 型循环先执行后判断.

 求解 1 – 2 + 3  － 4 + …… + 99－100 的和，在空白处填入正确答案
Private Sub Command1_Click()    
Dim i As integer, S As integer    
S =  ＿＿     
For i =  ＿＿  To  ＿＿      
s = s + ( -1 )^(i + 1) *  ＿＿     
Next   ＿＿ 
Print “S ＝"; S  
End Sub