一套VB题

2024-11-26 17:34:57
推荐回答(1个)
回答1:

一 填空题
1.VB中,字符型常量应使用__(双引号)____讲其括起来,日期型常量应使用__(#)___符号将其括起来。
2.VB中时间过程的名字是由___(对象名称)______,____(事件)____和____(下减号)_____构成。
3.改对象的属性两种方法分别是___(在属性窗口中对象的属性进行设置)
_______和___编程设置(对象名.属性名=属性值)_________
4.B的注释语句采用____(单引号)_____;续行符采用____(下划线)_____;若要在一行书写多条语句,则各语句问应加____(逗号)____分隔符。
5.VB的基本数据类型中的整形和字符串型对应的VB关键字分别为__(Integer)___和___(String)_____
6.VB菜单可分为___(弹出式)____菜单和___(下拉式)____菜单两种。
7.若要将某菜单设计为分隔条,则该菜单项的标题就设置为__(连字符)______
8.在VB中,用于生产输入对话筐的函数是_____(Inputbox)______,其返回值类型为____(String)_____
若利用该函数接受数值型的数据,则可利用__val()____函数对其返回值进行转换而得到
9设“学习VB真快乐”则LEFT(S,2)=____(“学习”)_____,Mid(s,3,2)=____(VB)_____
二选者题
1.获得字符ASCⅡ码值的函数是( B )
A. ASC( ) B.CHR( ) C.FIX( ) D.VAL( )
2.要结束VB应用成熟,应使用的语句为( B )
A.DOEVENTS B.EXIT SUB C.END D.EXIT DO
3.实现将小写字母转换成大写字母的函数是( B )
A.STR( ) B.UCASE( ) C.UPPER( ) D.LCASE( )
4.窗体标题条现实的内容由窗体对象的( D )属性决定。
A.BACKCOLOR B.BACKSTYLE C.TEXT D.CAPTION
5.若要使命令失效,可设置( D )属性为FALSE来实现
A.VALUE B。CANCEL C。VISIBLE D。ENABLE
6。若要让标签能自动适应所显示的本文,则就设置( D )属性的值为TRUE
A。AUTOSIZE B。ALIGNMENT C。APPEARANCE D。VISIBLE
7。若要设置本文框最大可接受的字符数,可通过( B )属性来实现
A。MULITLINE B。MAXLENGTH C。MAX D。LENGTH
8若要设置定时器的定时时间,可通过( C )属性来设置
A。VALUE B TEXT C INTERVAL D。ENABLED
9。若要在图片框中绘制一个椭圆 则可使用( D )方法来实现
A POINT B LINE C PSET D CIRCLE
10。若要向列表框新增加表项,可使用( D )方法来实现
A ADD B CLEAR C REMOVE D ADDITEM
11。窗体的示意图标通过( A ) 属性来设置
A ICON B IMAGE C PICTURE D MOUSEICON
三 判断题
1、long数据类型所需的内存为4BYTES √
2、窗体和控件都是VISUL BASIC中的对象 √
3、在VB应用程序中,过程的定义和过程的调用都可以钎套。 ×
4、要改变本文框中的本文信息 需要设置的属性是CAPTION √
5、VB中只有一种参数传递方式 ×
6、运算符MOD不是逻辑运算符 √
7、逻辑运算符 AND 是取两个数的操作 √
8、VB6.0只有两种工作模式 ×
9、在VB6。0中 按 F4键不可以激活属性窗口 ×
10、vb工具箱中所有控件都具有宽度和高度属性 √
四题
1到100基数和-----------------

Private Sub commandl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles commandl.Click
Dim s As Integer = 0
For i As Integer = 1 To 100

If i Mod 2 = 1 Then
s += i
End If
Next i
MsgBox(s)
End Sub
第五题: Inputbox 这个
Dim Input
Input = InputBox("数据查询")
MsgBox("输入:" & Input)
六题
Dim n As Integer, x As Integer

Dim i As Integer

Dim xpower As Single

Dim factor As Single

Dim y As Single

x = 9

n = 25

y = 1

factor = 1

For i = 1 To n

factor = factor * i

xpower = x ^ i

y = y + xpower / factor

Next i
MsgBox(y)
以上内容是从网上找的