1、一、单选题1、下列字符中，其ASCII码值最大的是（ ）。A.5B.AC.BD.a答案：D2、VB.NET注释语句的开头符号可以是（ ）。A.B.C._D./答案：B3、Visual Basic是一种面向对象的可视化程序设计语言，采取了（ ）的编程机制。A.事件驱动B.按过程顺序执行C.从主程序开始执行D.按模块顺序执行答案：A4、不论何控件，共同具有的属性是（ ）。A.TextB.NameC.ForeColorD.Size答案：B5、要使窗体的标题为“我的程序”，应修改窗体的（ ）属性。A.NameB.ItemsC.TipD.Text答案：D6、以下符号中，（ ）是VB合法的变量名。A.x_
2、yB.A#5C.2xD.Integer答案：A7、下列表达式 -3 2 + 100 Mod 5 的值是（ ）。A.1B.4C.9D.-9答案：D8、执行下列代码后，变量a、b、c的值分别为（ ）。Dim a, b, c As Integera = Int（-3.67） : b = Fix（-3.67） : c = Math.Round（-3.67）A.-4 -3 -4B.-3 -4 -3C.-4 -3 -3D.-3 -4 -4答案：A9、要使变量x赋值为一个三位的正整数（100999），正确的语句是（ ）。A.x = Int（1000*Rnd（ ）B.x = Int（999*Rnd（ ）C.x
3、 = Int（900*Rnd（） + 100）D.x = Int（999*Rnd（ ） + 100）答案：C10、下面属于结构化程序设计三种基本结构之一的是（ ）。A.递归结构B.选择结构C.过程结构D.输入输出结构答案：B11、下面正确的赋值语句是（ ）。A.x + y = 30B.y = dim * r * rC.y = x + 30D.3y = x答案：C12、程序代码如下, 在消息框中显示的消息内容为（ ）。Dim m%, n%, x%, y%, k%m = 100 ： n = 10 ： x = 10 ： y = 100k = IIf （ m = n, x, y ）MsgBox（k）A
4、.100B.10C.20D.90答案：A13、当条件为5 x 10时，则将x的值加1，则以下语句正确的是（ ）。A.If 5 x =10 Then x = x + 1B.If 5 x And x 5 Or x = 10 Then x = x + 1D.If 5 x And 0 s = s + n mod 10 n = n 10 Loop Label1.Text = sA.5127B.7215C.15D.16答案：C17、设有以下循环结构Do循环体Loop Until 则以下叙述中正确的是（ ）。A.若条件是一个为0的常数，则一次也不执行循环体B.条件可以是关系表达式、逻辑表达式或常数C.循环体
5、中必须使用Exit Do语句D.如果条件总是为True，则不停地执行循环体答案：B18、如下数组声明语句中，数组A包含元素的个数有（ ）。 Dim a%（2, 3, 4）A.9B.60C.12D.24答案：B19、同一个数组的数据元素具有相同的（ ）。A.下标B.数据类型C.数值D.存放地址答案：B20、数组的（ ）方法可以用来获得指定维度的大小。A.GetLengthB.CountC.GetUpperBoundD.Length答案：A21、下列ReDim语句正确的是（ ）。A.Dim a（ ） As IntegerReDim a（10）B.Dim a（ ） As IntegerReDim a
6、（10） As StringC.Dim a（ ） As IntegerReDim a（5, 5）D.Dim a（3, 4） As IntegerReDim Preserve a（5, 5）答案：A22、若使用Dim A（100） As Integer语句声明了数组A，下列引用错误的是（ ）。A.A（0） = 2B.A（1） = -28C.A（56） = A（-56）D.A（100） = A（0） + A（55）答案：C23、以下程序的输出结果是（ ）。Dim a%（ ） = 1, 2, 3, 4, 5, 6, 7 , i%For i = 0 To a.GetUpperBound（0）a（i）
7、= a（i） * a（i）NextMsgBox（ a（i） ）A.49B.0C.不确定D.程序出错答案：D24、下列数组声明语句中正确的是（ ）。A.Dim A（9） As Single = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 B.Dim A（ ） As Single = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 C.Dim A（ ） As Single = 1, abc, ccc, 4, 5, 6, 7, 8, 9, 10 D.Dim A（ , ） As Single = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 答案：B25、从函
8、数过程退出，并返回到主调过程，可使用语句（ ）。A.Exit SubB.EnterC.Exit FunctionD.Exit答案：C26、要想从子过程调用后返回两个结果，下面子过程声明语句正确的是（ ）。A.Sub f1（ByVal n%, ByVal m%）B.Sub f1（ByRef n%, ByVal m%）C.Sub f1（ByRef n%, ByRef m%）D.Sub f1（ByVal n%, ByRef m%）答案：C27、下面过程运行后显示的结果是（ ）。Public Sub F1（ByRef n%, ByVal m%）n = n Mod 10m = m 10End SubPr
9、ivate Sub Button1_Click（sender As System.Object, e As System.EventArgs） Handles Button1.ClickDim x%, y%x=12y=34Call F1（x, y）MsgBox（ x & & y ）End SubA.2 34B.12 34C.2 3D.12 3答案：A28、下列不属控件的一项是（ ）。A.文本框B.标签C.列表框D.消息框答案：D29、（ ）对象不能响应Click事件。A.计时器B.图片框C.窗体D.列表框答案：A30、窗体上有一个名为HScrollBar1的水平滚动条和一个名为TextBox1的文本框。当移动滚动条中的滑块时，在文本框中显示滑块的当前位置值。为了实现该功能，需要将下面的语句放入（ ）事件过程中。 TextBox1.Text = HScrollBar1.ValueA.滚动条的GotFocus事件过程B.滚动条的Scroll事件过程C.文本框的KeyPress事件过程D.文本框的TextChanged事件过程答案：B
