(VB1.docVIP

1.对正实数X的第四位小数四舍五入的VB表达式是0.001*Int(1000*(x+0.0005)) 2.设整型变量a、b的当前取值分别为200与20，以下赋值语句中不能正确执行的是 B A Text1=a/b*a B Text1=a*a/b C Text1=“200”*a/b D Text1=aamp;bamp;a 3. 函数Cint(–3.5)，Int(–3.5)，Fix(–3.5)的值分别是-4，–4，–3 4. 下列说法不正确的是 D A VB允许将一个数字字符赋值给一个数值型的变量 B VB允许使用未经说明的变量，其类型都是Variant类型 C Cls方法只清除运行时在窗体或图形框中显示的文本 D 事件过程既可建在窗体模块中，也可以建在标准模块中 5. 执行语句Print format(5459.478,##,##0.00)，正确的输出结果是 B A 5459.48 B 5,459.48 C 5,459.478 D 5,459.47 6. 下列没有类型说明符的变量是 A A 日期型 B 长整型 C 字符串型 D 货币型 7. VB表达式Sqr(a+b)^3*2中优先进行运算的是 B A Sqr函数 B + C ^ D * 8. 执行以下程序段后，变是c$的值为 D Private Sub Command1_Click( ) A$ = Viaual BASIC programming B$ = B$ UCase(Mid$(A$, 7, 6) Right$(A$, 12)) Print B$ End Sub A Viaual BASIC Programming B Basic Programming C basic programming D BASIC PROGRAMMING 9. 一个窗体名不能包含 空格和标点符号 10. 日期类型（Date）在程序中运用时，日期类型必须用___#___符号括起来 11. 执行下面的程序，单击窗体后在窗体上显示的结果是 abdb Private Sub Form_Click() Dim Strl As String, Str2 As String,I As Integer Str1=”ab” For I=Len(Str1)To 1 Step-1 Str1=Str1Chr(Asc(Mid(Str1,I,1))+I) Next I Print Str1 End Sub 12. 下列语句中的语句可以用来正确地声明一个动态数组 B A Private A(n) As Integer B Dim A() As Integer C Dim A(,) As Integer D Dim A(1 to n) 13. 下列程序 Private Sub Command1_Click( ) a=InputBox(请输入) b=InputBox(请输入) Print a+b End Sub 运行时输入3和4输出的结果是 34 14. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Static A As Integer Static B As Integer Cls B = 2 B = B+3 A= 3+A print A, B End Sub 程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为 A A 3 5 B 6 6 C 9 5 D 3 3 15. 在窗体画一个命令按钮，然后编写如下事件过程 Private Sub Command1_Click( ) x = 10 Print IIf(x5,1,5) End Sub 运行后的输出结果为 1 16. 在窗体上添加一个命令按钮，名为Command1，一文本框，名为Text1,则执行如下事件过程后，文本框中的输出为 30 Private Sub Command1_Click( ) For i = 1 To 4 x = 3 For j = 1 To 3 For k = 1 To 3 x = x+3 Next k Next j Next i Text1.Text=Str(x) End Sub 17. 设有如下语句： strl=InputBox(输入,,练习)从键盘上输入字符串示例后，strl的值是 D A “输入” B “” C “练习” D “示例” 18. 当Form1_Click事件发生时