VB期中练习.doc

期中练习试卷一、选择题1. Visual Basic中的数据也可以以十六进制或八进制表示，八进制数据以_符号开头。A. $EB. $HC. &OD. &H2. 下列符号常量的声明中，_是不合法的。A. Const a As Single=1.1B. Const a As Integer=”12”C. Const a As Integer=Sin(1)D. Const a=”OK”3. 函数Val(“.123E2CD”)的值为_。A. .123B. 12.3C. 0D. .123E2CD4. 将命令按钮的_属性设置为False后，运行时该命令按钮呈现灰色，不可用。A. ControlBoxB. WindowStateC. VisibleD. Enabled5. 除窗体之外，以下对象可以作为其他控件容器的是_。A. PictureBox和ImageB. Frame和PictureBoxC. ListBox和FrameD. TextBox和Image6. 如果在要单选按钮（Option）上显示图形文件，应设置单选按钮的_属性。A. Style和GraphicsB. Style和PictureC. Caption和PictureD. Caption和Graphics7. 在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下语句中，不能正常执行的是_。A. a=True : s=2*a+1B. s=”237” & “.11” : a=sC. a=1 : s=2*a3D. a=4 : s=8200*a8. 文本框（TextBox）的Text属性值的数据类型为_。A. IntegerB. DateC. StringD. Variant9. 在窗体的Click过程代码中有如下语句，正确的结果是_。Print Format(1732.45,”+#,#0.0”)A. +1,732.4B. 1,732.4C. +1,732.5D. 1,732.510. 运行下面的程序，单击命令按钮Command1，则窗体上显示的结果是_。Private Sub Command1_Click()Dim A As Integer, B As Boolean, C As Integer, D As IntegerA=20/3 : B=True : C=B : D=A+CPrint A, D, A=A+CEnd SubA. 7 6 FalseB. 6.6 5.6 FalseC. 7 6 A=6D. 7 8 A=811. 函数CInt、Int、Fix都返回整数值，以下能正确描述它们返回值的大小关系的是_。A. CInt(-4.51)=Int(-4.5)Fix(-4.51)B. Int(-4.51)CInt(-4.5)Fix(-4.51)C. CInt(-4.51)Fix(-4.5)Int(-4.51)D. Int(-4.51) Fix(-4.51)=CInt(-4.5)12. 在窗体的通用声明处有如下语句，会产生错误的语句是_。Const A As Integer=25Public St As String * 8ReDim B(3) As IntegerDim Const X As Integer=10A. B. C. D. 13. 在默认情况下InputBox函数返回值的类型为_。A. 数值B. 字符串C. 变体D. 数值或字符串14. 在过程中，若要在整个代码运行期间都能保留变量n的值，应使用 语句进行声明。A.Private n As IntegerB.Public n As IntegerC.Dim n As IntegerD.Static n As Integer 15. 可以用Print方法在PictureBox控件上显示文本信息，若想清除这些信息，可用的方法是_。A. ClsB. RemoveC. ClearD. Close16. 设变量D为Date型、A为Integer型、S为String型、L为Long型，下面赋值语句中不能执行的是_。A. D=#12:30:00 PM #B. A=“3277e1”C. S=NowD. L=“4276D3”17. 下面表达式中，_的值是整型（Integer或Long）。57-6/2254+ Fix(9.62)19+6.31.3927 & 73”485”+4699.5 Mod 3.5A. B.C. D. 18. 在一个语句行内写多条语句时，语句之间应该用_分隔。A. 逗号B. 分号C. 顿号D. 冒号二、填空题1. 算术表达式对应的VB表达式是_（1）_。2. 算术表达式对应的VB表达式是_（2）_。3. 算术表达式对应的VB表达式是_（3）_。4. 条件“字符串S中必须含有字符”对应的逻辑表达式是_（4）_。5. “A是一个带小数的正数，且B是一个带小数的负数”所对应的逻辑表达式是_（5）_。6. 已知变量N的值为100，则表达式N Xor N的值为_（6）_。7. 将一个两位整数N的个位数与十位数对换得到新数的一句VB表达式是_（7）_。8. 已知整型变量X的值为32766，则Print X=X+1的输出结果为_（8）_。9. 运行下面的程序，单击命令按钮Command1时，在列表框中显示的第一行是_（9）_，第三行是_（10）_。Private Sub Command1_Click() Dim x As Integer, k As Integer x = 483 k = 2 Do Until x = 10 Then Exit For Next Print I; p; nEnd Sub11. 运行下面的程序，单击窗体，在输入框中输入20，在窗体上显示的内容为_（12）_。Private Sub Form_Click() Dim N As Integer, S As String, R As String N = InputBox(输入一个整数) Do While N 0 R = N Mod 2 S = R & S N = N 2 LoopText1Text2 Print SEnd Sub12. 在文本框Text1中输入如图所示字符串，单击“OK”按钮后，在文本框Text2中显示的内容为_（13）_。Private Sub cmdOK_Click() Dim S As String, I As Integer, p As Integer S = Trim(Text1.Text) p = InStr(S, Space(1) Do While p 0 I = I + 1 S = Trim(Mid(S, p + 1) p = InStr(S, Space(1) Loop I = I + 1 Text2.Text = IEnd Sub13. 执行下列程序，单击窗体，在窗体第三行显示的内容是_（14）_。Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer k = 0 For i = 0 To 10 Step k + 3 For j = 1 To 10 If j 5 Thenk = k + 4Exit ForEnd If Next j Print i, j, k If i 8 Then Exit For Next iEnd Sub14. 执行下列程序，单击命令按钮Cmd1，窗体上显示的内容是_（15）_。Private Sub Cmd1_Click() Dim x As Integer, I As Integer x = 1 For I = 1 To 5 x = x + (2 * I + 1) / (2 * I - 1) If x = 20 Then Exit For Next Print I, xEnd Sub15. 执行下列程序，单击窗体，在窗体上显示的内容是_（16）_。Private Sub Form_Click() Dim M(10) As Integer, I As Integer For I = 0 To 10 M(I) = 2 * I Next Print M(M(3)End Sub16. 执行下列程序，单击窗体后，在两个输入框中分别输入4和6，则窗体上输出的内容为_（17）_。Private Sub Form_Click() Dim M As Integer, N As Integer, T As Integer, I As Integer M = InputBox(输入第一个数M) N = InputBox(输入第二个数N) If M N Then T = M M = N N = T End If I = M Do While I Mod N 0 Or I Mod M 0 I = I + 1 Loop Print IEnd Sub17. 以下程序用于计算12-22+32-42+(N-1)2-N2（N为偶数），请完善程序。Private Sub Command1_Click() Dim N As Integer, S As Integer, I As Integer, C As Integer N = InputBox(请输入一个大于0的偶数N, , 2) S = 0: I = 1: C = 1 Do S = S + C * I 2 C =_（18）_ I=I+1 Loop While _（19）_ Print S=; SEnd Sub18. 下列程序的功能是用欧几里德算法（辗转法）求两个自然数的最大公约数，请完善程序。Private Sub Form_Click() Dim M As Integer, N As Integer, R As Integer M = InputBox(请输入M的值：) N = InputBox(请输入N的值：) Print M; 与; N; _（20）_ Do While R 0 M = N _（21）_ R = M Mod N Loop Print 最大公约数为:; NEnd Sub19. 以下是用级数展开法求ex的值。（n=1,2,3,）计算到第n项的值小于10-5时为止，界面如图所示。请完善程序。Private Sub Command1_Click() Dim n As Integer, t As Single, s As Single, y As Single n = 0 t = 1 s = 1 y = 1 x = Text1.Text Do n = n + 1 t = x n _（22）_