vb题目 望懂的人写下答案 感激不敬！

一、判断题(本大题共10小题，每小题2分,共20分，答案用A表示正确，B表示错误)

1A 2A 3B 4A 5A 6B 7B 8B 9B 10B

二、选择题(本大题共10小题，每小题2分,共20分)

1下列表示条件“性别（Sex）为男、职称（Duty）为副教授以上、年龄（Age）小于40岁”的VB逻辑表达式中，不正确的是( A )

2下列表达式中，与其他3个表达式运算结果不相同的是( B )

3设a = 2， b = 0，则语句 Print (a = 2) And (b = -2) 的输出结果是( B )

4下面程序片段运行后，显示的结果是( C )

5若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为( A )

6下列关于ForNext 语句的说法正确的是( D )

7改变控件在窗体中的左右位置应修改的控件属性是( B )

8在VB中，如果要创建“年级”和“班级”两组单选按钮，具体的做法是( C )

9下列关于计时器控件的说法中错误的是( D )

10若要将窗体从内存中卸载出去，其实现的方法是( D )

一、选择题

1、 某一VB工程含F1、F2两个窗体，执行“F1．Show:F2．Hide”语句后，F1、F2窗体显示的结果为（ ）。

A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示

F2窗体

2、 在VB中，执行“Text1．Text= “0551-2649670” “Tel=0551-2649670”这行语句时，“，”后面的部分为（ ）。

A、注释部分，不是可执行代码 B、注释部分，但是可以执行代码

C、程序代码的一部分 D、程序代码的另一种写法

3、 VB的数据类型分为（ ）

A、 数值型、字符型、布尔型、日期型 B、数值型、字符型、对象型、日期型

C、基本类型、扩展类型 D、整型、实型、字符型、日期型、布尔型

4、VB中的变量如果没有显示声明其数据类型，则默认为（ ）

A、日期型 B、数据型 C、字符型 D、变体型

5在VB中，通过改变表框（ ）属性的值 ，可以为列表框添加项目。

A、List B、（名称） C、Caption D 、Text

6、在VB中，执行“A=5：A=A+5”语句后，变量A的值为（ ）

A、0 B、5 C、10 D、不一定

7、VB中运算符被分为四类，分别是（ ）

A、算术运算符、连接运算符、关系运算符、逻辑运算符

B、算术运算符、比较运算符、关系运算符、逻辑运算符

C、算术运算符、连接运算符、布尔运算符、逻辑运算符

D、连接运算符、比较运算符、逻辑运算符、关系运算符

8、在VB中，执行“A=18MOD4”语句后，A的值为（ ）。

A、2 B、4 C、6 D、8

9、A为True,B为False, 则 “AandB”和 “AOrB”的值分别是（ ）。

A、True,True B、True False C 、False,True D 、False,False

10、在VB中，执行 “DimA,B As String” 语句后，A，B的数据结构为（ ）。

A、整型数 B、实型数 C、字符型 D、字节型

11、在VB中，执行 “A=123：B=Str$(A)”语句后，B的数据结构为（ ）。

A、整型数、 B、字节型 C、实型数 D、字符型

12、在VB中，复写框（Check）的Value值有三种，分别是（ ）。

A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0

13、在VB中，如要创建“年级”和“班级”两组单选按钮，具体的做法是（ ）

A、先创建“单选按钮”，然后用“框架”分别框住

B、先分别创建“单选按钮”和“框架”，然后将“单选按钮”拖到相应的框架中

C、先创建“框架”，然后在“框架”中创建“单选按钮”

D、以上方法均可

14、数学关系3〈= x〈10表示成正确的VB表达式为（ ）

A、3〈=x〈10 B、3〈=xANDx〈10 C、x〉=3ORx〈10 D、3〈=xAND〈10

15、Int（198555100+05）/100的值为（ ）

A、198 B、1996 C、19856 D、200

16、下面正确的赋值语句是（ ）

A、x+y=30 B、y= rr C、y=x+30 D、3y=x

17、为了给三个变量赋初值1，下面正确的赋值语句是（ ）

A、x=1：y=1：z=1 B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=1

18、分支结构的程序在进行判断后可分别控制程序有（ ）个以上的走向。

A、1 B、2 C、3 D、8

19、语句If x=1 Then y=1,下列说法正确的是（ ）。

A、x=1和 y=1 均为赋值语句 B、x=1和 y=1均为关系表达式

C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=1为关系表达

20、可用于设置系统当前时间的语句是（ ）。

A、Date B、Date$ C、Time D、Timer

21、若要退出For循环，可使用的语句为（ ）。

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

22、利用VB设计程序的基本步骤可分四步：

（1） 设计用户界；（2）（ ）；（3）运行调试程序；（4）生成执行文件。

A、编写代码 B、设计算法 C、信息反馈 D、系统集成

23、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是( )

A FormC aption“时钟” B FormCaption=“时钟”

C Caption=“时钟” D FopmCaption( “时钟”)

24 下列 *** 作不能打开代码窗口的是( )

A选中对象,单击鼠标右键,在d出的快捷菜单中选择“查看代码”命令

B 选中对象,双击鼠标左键 C 按F7键 D按F4键

25 保存文件时,窗体的所有数据存储格式为( )

A ．PRG B ．FRM C．VBP D ．EXE

26窗体初始化程序应写在( )事件中

A Load B Unload C Activate D GotFocus

27 在一个语句内写多条语句时,每个语句之间分隔符号是( )

A ， B ： C 、 D ；

28 一句语句要在下一行继续写,所用的续行符号为( )

A ＋ B － C ＼―― D．．．X

29 下面是合法的变量名为( )

A x＿yz B 123abc C integer D X-Y

30 下面是合法的字符串常数为( )

A ABC $ B “ABC” C ‘ABC' D ABC

二 判断题

1、 VB 中的控件都是用来设计用户界面的。（ ）

2、在VB程序时,选中Form (窗体)上的某个控件,如果控件周围出现8个白色小方块,则表示该控件未被锁定。（ ）

4、 设计VB程序时，选中窗体上的“Text1”文本框控件，将其“BackColor”属性值设置为淡绿色，将“ForeColor”属性值设置为红色，则“Text1”文字为红色。（ ）

5、 在VB中，“方法”是指在对象上起作用的过程，也就是说用来控制对象的功能及 *** 作的内部程序。（ ）

6、 在编写VB程序代码时，对象属性的表示方法为：方法名对象名称。（ ）

7、 Click事件，就是鼠标单击事件。（ ）

8、 在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。（ ）

程序代码的基本结构有三种，分别是顺序结构、选择结构（分支结构）、循环结构。（ ）

9、 在VB中，有一名称为LIST1的列表框，那麽执行“LIST1ADDITEM“方周工作室””语句后，即在LIST1列表框中添加“方周工作室”这个项目。（ ）

10、 在VB中，运算级从高到底的顺序是：算数运算、连接运算、关系运算、逻辑运算。（ ）

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

一、选择题

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' DABC

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、775 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 254的输出结果是：（C ）

A、254 B、“254” 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

提供一个 VB 遍历指定文件夹下 文件的 代码

'查找第一个文件的API

Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

'查找下一个文件的API

Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

'获取文件属性的API

Public Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

'关闭查找文件的API

Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

'以下为调用浏览文件夹窗口的API

Public Declare Sub CoTaskMemFree Lib "ole32dll" (ByVal hMem As Long)

Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long

Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

'常量

Public Const MAX_PATH = 260

Public Const MAXDWORD = &HFFFF

Public Const INVALID_HANDLE_VALUE = -1

Public Const FILE_ATTRIBUTE_ARCHIVE = &H20

Public Const FILE_ATTRIBUTE_DIRECTORY = &H10

Public Const FILE_ATTRIBUTE_HIDDEN = &H2

Public Const FILE_ATTRIBUTE_NORMAL = &H80

Public Const FILE_ATTRIBUTE_READONLY = &H1

Public Const FILE_ATTRIBUTE_SYSTEM = &H4

Public Const FILE_ATTRIBUTE_TEMPORARY = &H100

Public Const BIF_RETURNONLYFSDIRS = 1

Public Type FILETIME

dwLowDateTime As Long

dwHighDateTime As Long

End Type

'定义类(用于查找文件)

Public Type WIN32_FIND_DATA

dwFileAttributes As Long

ftCreationTime As FILETIME

ftLastAccessTime As FILETIME

ftLastWriteTime As FILETIME

nFileSizeHigh As Long

nFileSizeLow As Long

dwReserved0 As Long

dwReserved1 As Long

cFileName As String MAX_PATH

cAlternate As String 14

End Type

'定义类(用于浏览文件夹窗口)

Public Type BrowseInfo

hWndOwner As Long

pIDLRoot As Long

pszDisplayName As Long

lpszTitle As Long

ulFlags As Long

lpfnCallback As Long

lParam As Long

iImage As Long

End Type

'自定义函数

Function StripNulls(OriginalStr As String) As String

If (InStr(OriginalStr, Chr(0)) > 0) Then

OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)

End If

StripNulls = OriginalStr

End Function

窗体代码:

Function GetAllFilePath(path As String, SearchStr As String)

Dim FileName As String ' 文件名

Dim DirName As String ' 子目录名

Dim dirNames() As String ' 目录数组

Dim nDir As Integer ' 当前路径的目录数

Dim i As Integer ' 循环计数器变量

Dim hSearch As Long ' 搜索句柄变量

Dim WFD As WIN32_FIND_DATA

Dim Cont As Integer

If Right(path, 1) <> "\" Then path = path & "\"

'搜索子目录

nDir = 0

ReDim dirNames(nDir)

Cont = True

hSearch = FindFirstFile(path & "", WFD)

If hSearch <> INVALID_HANDLE_VALUE Then

Do While Cont

DirName = StripNulls(WFDcFileName)

If (DirName <> "") And (DirName <> "") Then

If GetFileAttributes(path & DirName) And FILE_ATTRIBUTE_DIRECTORY Then

dirNames(nDir) = DirName

nDir = nDir + 1

ReDim Preserve dirNames(nDir)

End If

End If

Cont = FindNextFile(hSearch, WFD) '获取下一个子目录

Loop

Cont = FindClose(hSearch)

End If

' 遍历目录并累计文件总数

hSearch = FindFirstFile(path & SearchStr, WFD)

Cont = True

If hSearch <> INVALID_HANDLE_VALUE Then

While Cont

FileName = StripNulls(WFDcFileName)

If (FileName <> "") And (FileName <> "") Then

GetAllFilePath = GetAllFilePath + (WFDnFileSizeHigh MAXDWORD) + WFDnFileSizeLow

List1AddItem path & FileName

If GetFileAttributes(path & FileName) = 32 Then

List2AddItem FileName

End If

End If

Cont = FindNextFile(hSearch, WFD) ' 获取下一个文件

Wend

Cont = FindClose(hSearch)

End If

'如果子目录存在则遍历之

If nDir > 0 Then

For i = 0 To nDir - 1

GetAllFilePath = GetAllFilePath + GetAllFilePath(path & dirNames(i) & "\", _

SearchStr)

Next i

End If

End Function

Private Sub Command1_Click()

Dim SearchPath As String

Dim FindStr As String

Dim FileSize As Long

Dim iNull As Integer, lpIDList As Long, lResult As Long

Dim sPath As String, udtBI As BrowseInfo

With udtBI

'设置浏览窗口

hWndOwner = MehWnd

'返回选中的目录

ulFlags = BIF_RETURNONLYFSDIRS

End With

'调出浏览窗口

lpIDList = SHBrowseForFolder(udtBI)

If lpIDList Then

sPath = String$(MAX_PATH, 0)

'获取路径

SHGetPathFromIDList lpIDList, sPath

'释放内存

CoTaskMemFree lpIDList

iNull = InStr(sPath, vbNullChar)

If iNull Then

sPath = Left$(sPath, iNull - 1)

End If

End If

ScreenMousePointer = vbHourglass

List1Clear

List2Clear

SearchPath = sPath '选中的目录为搜索的起始路径

FindStr = "" '搜索所有类型的文件(此处可另作定义)

FileSize = GetAllFilePath(SearchPath, FindStr)

ScreenMousePointer = vbDefault

End Sub

FindStr = "E:\jpg" 就可以 E盘遍历jpg文件

InStr(1, a, "123") 就可以识别 含有"123"的字符串： 返回 0 没有，非 0 有

稍微改一下就可以了

这个程序主要是实现遍历，可以找到指定文件夹下所有文件，包括子目录下，

如果只需要搜索指定文件夹下文件，不处理子目录，就可以不用这么复杂。

答案是retupmoC

循环字符串长度的一半，然后交换，结果是将字符串反过来了

c=Mid(a,I,1)

Mid(a,I,1)=Mid(a,n-I+1,1)

Mid(a,n-I+1,1)=c

这三句的意思是交换a字符串中第I个字符和第n-I+1个（倒数第I个）字符

Private Sub Command1_Click(Index As Integer)

Dim a As Integer

  Randomize

a = Rnd 3

'0代表剪刀  1代表石头  2代表布

Select Case a

Case 0

  If Index = 2 Then Text1Text = "你输了"

  If Index = 0 Then Text1Text = "平手"

  If Index = 1 Then Text1Text = "你赢了"

Case 1

  If Index = 0 Then Text1Text = "你输了"

  If Index = 1 Then Text1Text = "平手"

  If Index = 2 Then Text1Text = "你赢了"

Case 2

  If Index = 1 Then Text1Text = "你输了"

  If Index = 2 Then Text1Text = "平手"

  If Index = 0 Then Text1Text = "你赢了"

End Select

Command1(0)Enabled = False

Command1(1)Enabled = False

Command1(2)Enabled = False

End Sub

Private Sub Command2_Click()

Text1Text = ""

Command1(0)Enabled = True

Command1(1)Enabled = True

Command1(2)Enabled = True

End Sub

Private Sub Command3_Click()

End

End Sub

以上就是关于vb题目 望懂的人写下答案 感激不敬！全部的内容，包括:vb题目 望懂的人写下答案 感激不敬！、请大家提供一些VB的习题、vb练习题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！