Question

vb练习题

5．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
6．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
7．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
8．数学表达式sin2x 写成等价的Visual Basic表达式为_________________。
9．事件就是在对象上所发生的事情，VisualBasic中的事件如___________、___________、______________等。一个对象响应的事件可以有_____个，用户不能建立新的事件。事件过程是指_____________________________________________。假设某一事件过程如下：
Private Sub cmd1_Click()
Form1.Caption="VB示例"
End Sub
则响应该过程的对象名是______________，事件名是_____________。
10．PictureBox控件可通过设置其__________属性为True使之可自动调整大小；而Image控件可通过设置其___________属性为True，使其加载的图片能自动调整大小以适应Image。
11、在程序中，要求单击Command1，在text1和text2中产生10-100之间的任意整数（包含10和100）的代码为：
PrivateSub Command1_Click()

______________________________________

_________________________________________
EndSub
12、将数学表达式写Visual Basic表达式：
-b+√b2-4ac
2a

13、期中考试结束，学校要评选优秀学生，条件为：1、年龄小于18岁；2、总分不少于190分；3、其中有一科为优秀（即语文、数学不低于108分、VB6.0不低于90分）。Age表示年龄，Total表示总分，Chinese表示语文，Math表示数学，VB表示VB6.0。当三个条件全部满足时才可以被评定为优秀学生。请在下面写出表达式：
____________________________________________________
14、读下面的代码，单击Command1后，text1中的字符为：___________
PrivateSub Command1_Click()
Text1.Text= 123
Text2.Text= 456
Text1.Text= "vb"
EndSub

15、某程序中的代码
PrivateSub Command1_Click()
Dimi As Integer
i =20
Text1.Text= i
EndSub
PrivateSub Command2_Click()
Consti As String = "Visual Basic 6.0"
Text2.Text= i
EndSub
先单击Command2，后单击Command1，Text1和Text2中能否显示相关内容，如果不能请说明理由，如果能请写出Text1和Text2的内容。
不能显示,理由 _____________________________
能显示：Text1.Text的内容为__________________
Text2.Text的内容为__________________

16．.执行下面的程序段后，s的值为______。
s = 2
For I = 3.2 To 4.9 Step 0.8
s = s + I
Next I

17． 用随机数函数产生100个100～300之间的整数，在窗体上输出能被3整除的数的和及个数。
Private Sub Form_Click()
Dim S&, N%
S = 0
N = 0
Randomize
For ______________ 100
x = Int(Rnd * 200 + 100)
If x Mod 3 Then
_____________
N = N + 1
End If
Next i
Print S
Print N
End Sub
18、在VB的代码中要求强制显示声明变量，应在通用中加入___________语句。
19、在使用随机函数时，防止每次调用产生相同的随机数，应在随机函数之前加入___________语句。

Answer 1

分有点少啊,反正没事做,帮帮你吧

一、选择题
1、在VB中，用Sring来表示的数据类型是：（D ）
A．长整型 B．字符型 C．逻辑型 D． 单精度型
2、下面哪一个不是Visual Basic保留的关键字？（B ）
（A）Loop（B）More（C）Mod（D）If
3.修改窗体的颜色通过设置窗体的（）属性：（A）
（A）Backcolor（B）Forecolor（C）Caption（D）Appearance
4、Dim A=9 Dim B=10 Dim C=8 Myvars=Not (A>B and B>C) （ A）
A. True B. False
5、下面4项中合法的字符常数是：（ B）
A. ABC$ B. "ABC" C. 'ABC' D.ABC
6、在Visual Basic中，设置文本框内容的属性是：（B ）
A、Name B、Text C、Picture D、WindowState
7、在Visual Basic中，表示鼠标单击事件的是：（ C）
A、Activate B、DoubleClick C、Click D、MouseDown
8、For – Next 语句属于程序基本结构中的：（B ）
A、顺序结构 B、循环结构 C、分支结构 D、选择结构
9、保存一个VB程序时需要保存两个文件：（C ）
这个题目就是有问题的.很明显是个傻冒出的题.通常情况下会有vbp和frm,但建个DLL就没有frm了.

A、 工程文件和 .vbp B、窗体文件和 .frm文件
C、.vbp文件和 .frm文件 D、模块文件和 .bas文件
10、下列程序段的运行结果是：（ A）
Dim A As Integer , B As Integer
A = 15
B = 4
PRINT 4 + A \ B
A、7 B、 -7 C、7.75 D、8
11、下列程序段的运行结果是：（A ）
Dim A As Integer , B As Integer , X As Integer
A = 1 ：B = 2
IF A < B THEN X = A - B ELSE X = B + A
PRINT X
A、-1 B、 1 C、2 D、3
12、下列程序段的运行结果是： （ D）
Dim F As Long , I As Long
F = 0
FOR I = 3 TO -3 STEP –1
F = F + I
NEXT I
PRINT I
A、-5 B、 .5 C、0 D、. –4
13、设A=7,B=3,C=4, 则A MOD 3 + B ^ 3 / C \ 5 的值是（ A）
(A) 2 (B) 3 (C) 4 (D) 5
14、语句PRINT 25*4的输出结果是：（C ）
A、25*4 B、“25*4” C、100 D、出现错误信息
15．语句Dim x As Integer作用是:将x定义为（ ）变量。（ B ）
(A)单精度型 (B)整型 (C) 布尔型 (D)字符型

二、 完成程序
1、求任意两个数中的最大值：
Private Sub Command_Click ( )
Dim A As Single , B As Single , MIN As Single
A = Val (Text1 . Text ) ‘从文本框Text1接收第1个数
B = Val (Text2 . Text ) ‘从文本框Text2接收第2个数
IF A < B THEN
MIN=B
ELSE
MIN=A
END IF
Text3 . Text =MIN ‘用文本框Text3输出最终结果
End Sub

2、按照从大到小的顺序输出100以内能被6整除的正整数
Private Sub Form_Click ( )
Dim I As Integer
Print “ 按照从大到小的顺序输出100以内能被6整除的正整数 “
For I = 1 To 100 Step 1
IF I mod 6 =0 THEN Print I
Next I
End Sub
三、写出下列循环语句每一次循环中各变量的值及循环次数。
1、y=2
变量 1次 2次 3次 4次 ……
y
Do While y<=8
y=y+y
Loop

2、s＝ 0： t＝ l
变量 1次 2次 3次 4次 ……
k
s
t
For k＝ 1 To 4

s＝s＋k
t=t＊k
Next k

追问

我们再讲一个问题吗

Answer 2

第一题是字符型，单精度是single