因为a+b=6,c没有赋值。print c=a+b的意思是

输出 c与a+b是否相等的判断结果。明显，

c=a+b这个式子不成立，值为fasle。

所以，程序打印输出 false.

1、可以通过　文件 　菜单中的退出命令退出Visual Basic.

2、窗体设计时窗体的边框类型有　6种。

3、给Command1按钮写代码时，触发了它　click　事件。

4、在VB中，第一个标签控件的名称默认为label1　，第一个文本控件的名称默认为text1　，

第一个命令控件的名称默认为command1。

5、计算Int(24.8)的值24。

6、计算Left(“ABCDEFGHIJK”,4)的值ABCD　。

7、计算Len(“ABCDEFGHIJK”,4)的值这一道题目有问题　。

1．常量是指在程序运行过程中， 它的值始终保持不变 的量。

2、在VB中若要让某对对象获取焦点，则可通过 SetFocus 方法来实现。

3、在过程内声明静态变量采用的关键字是 　static ，在执行一个过程结束时，过程中所用到的静态变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。

4、在模块文件中的声明部分用 　private 或 dim　 定义的变量为模块级变量。用 public　 声明为全局变量

5．计时器控件通过定期激活Timer事件，使得Timer控件 　每隔一段时间 就执行一次Timer事件中的代码。对应的属性是 　Interval 。

6．关闭正在运行的VB窗口将自动触发的事件是 unload　 。

二、选择题(每题四分，共20分)

1．在开发VB应用程序时，一个工程一般至少应含有（B ）。

A、标准模块文件和类模块文件 B、工程文件和窗体文件

C、工程文件和类模块文件 D、工程文件和标准模块文件

2、为了同时改变一个活动控件的高度和宽度，正确的操作是（A ）

A、拖拉控件4个角上的某个小方块 　B、只能拖拉位于控件右下角的小方块

C、只能拖拉位于控件左下角的小方块 D、不能同时改变控件的高度和宽度

3、修改文本框中显示的文本，应在属性窗口中改变的属性是（C ）

A、Caption B、Name C、Text D、Enabled

4、要把一个命令按钮设置成无效，应设置其（ B　）属性值。

A、Visual B、Enabled C、Default D、Cancel

5、要求改文本框中显示的文本，应当在属性窗口中改变的属性是（　C）

A、Caption B、Name C、Text D、Label

1．工程文件的扩展名是（B ）。

A、vbg B、vbp C、vbw D、vbl

2、用于从字符串左边截取字符的函数是（ C）

A、Ltrim( ) B、Trim( ) C、Left( ) D、Instr( )

3、可获得当前系统日期的函数是（ A）

A、Date( ) B、Time( ) C、IsDate( ) D、Year( )

4、退出For循环可使用的语句为（ A）

A、Exit For B、Exit Do C、End For D、End Do

5、窗体的标题栏显示内容由窗体对象的（D ）属性决定。

A、BackColor B、BackStyle C、Text D、Caption

1、在Visual Basic6.0中规定工程文件的扩展名是（A）。

（A）vbp （B）for （C）frm （D）bas

2、在Visual Basic中,以下选项中表示单击事件的是（B）。

（A）KeyUp （B）Click（C）Activate （D）Load

3、下述可以输入数据的是（D）。

（A）Print （B）Msgbox （C）Clear （D）InputBox

4、图片加载语句Picture1.Picture=Picture(“d:\x\123.bmp”) 不能加载图片，其中错误的地方是（D）。

（A) Picture1 （B).Picture （C) =Picture （D) (“d:\x\123.bmp”)

5、如果要处理3.1415类数据，使用的变量类型应该是（A）。

（A） Single （B） Long（C） Integer （D） String

6、Len(“People”)的值是（A）。

（A）6 （B） 7（C）8（D） 9

7、语句Dim x As Integer作用是:将x定义为（B）变量。

（A）单精度型 （B）整型 （C） 布尔型（D）字符型

8、在Select判断结构中，下面的表述中不正确的是（D。

（A）Case 1 （B）Case a 5 （C）Case 3 To 6 （D) Case is 10

9、下列关于Exit For 的说法，正确的是（B）。

（A）它可以退出任何类型的循环 （B）一个循环只能有一个Exit For

（C）每个循环必须有Exit For （D）Exit For本身是无条件退出循环

10. 当拖动滚动条中的滚动块时，将触发滚动条的事件是（C）。

（A) Move （B) SetFocus （C) Scroll （D) Change

二、简述下图程序界面的设计步骤（包括添加控件、设置属性和编程，）

三、程序阅读题

1、阅读下列程序段

Option Explicit

Private Sub Command1_Click()

Dim str1 As String

Dim str2 As String

str1 = "ABCDEFG"

MySub str1, str2

Print str2

End Sub

Private Sub MySub(ByVal a As String, b As String)

Dim c As String

Dim i As Integer

For i = Len(a) To 1 Step -1

c = c+ Mid(a, i, 1)

Next

b= c

End Sub

程序运行后，“print”语句的输出结果是___ _。

四、编写程序

1、利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。

2、 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。

答案：

一.4.应选c,picture改为Load.Picture

三.GFEDCBA

四.1. If fz_0.Text = "" Then

MsgBox("请输入!")

Exit Sub

End If

s = fz_0.Text

n = CInt(s)'此题输入n为10即可

For i = 0 To n

MsgBox("请输入第" Str(i + 1) "个数字")

ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型

Print(ar(i))

Next

Print("排序后")

'排序

For i = 1 To n - 1

intmin = i '对第i遍排序，初始假定第i个元素最小

For j = i + 1 To n '找出最小的元素序号

If ar(j) ar(intmin) Then intmin = j

Next j

'将找出的最小元素与第i个元素交换

sngt = ar(i)

ar(i) = ar(intmin)

ar(intmin) = sngt

Next i

'打印输出

For i = 1 To n

Print(ar(i)) '不换行输出

Next i

'输出后保存就可以了()

四.2. Dim i As Integer, j As Integer

For i = 100 To 200

If i Mod 3 = 0 Then

If j = 0 Then

j = i

Else

j = j + i

End If

End If

Next

MsgBox(j)

欢迎分享，转载请注明来源：内存溢出

原文地址:https://outofmemory.cn/yw/7785088.html