vb编程题库

❶ vb试题，帮忙做下，谢谢

我随便做的，仅供参考哈

判断题

1.相对于UPD协议而言，TCP协议是一种无连接的协议。
错误 TCP协议当然是有连接的啦

2.如果希望得到本地计算机的IP地址，可以使用Winsock控件的LocalIP属性。
正确

3.采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrs.Fields（”学号”）等效的语句是ADOrs(“学号”)。
错误 好像没有这种写法，但是可以直接写 ADOrs！学号

4.VB应用程序中与数据库通信的主要机制称为数据库引擎。
错误 这个不太确定，感觉是不对的，好像Access或者SqlServer这种才叫数据库引擎吧

5.假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是Dim ADOcn As Connection。
错误 应该是Public ADOcn As ADODB.Connection

6.Err对象中，用来表示错误描述的属性是Description。
正确

7.ADO模型中一般可通过Connection对象的Execute方法执行增加、删除、修改SQL语句。
正确

8.Winsock控件主要用来编制TCP/IP或UDP协议的通话程序。
正确

9.使用ADO模型时，可通过ActiveConnection属性建立Recordset和Connection对象的连接。
正确

10.Winsock控件的BytesReceived属性返回接收到的数据，通常使用SendData方法来获取这些数据。
错误 接收数据得用GetData方法

单选题

1.VB程序中设置断点的按键是（ ）。 F5键F6键F9键F10键
F9

2.当Winsock控件处于关闭状态时，其State属性的值是（ ）。 1026
0

3.ADOrs为RecordSet对象，从Table1获取所有记录的语句是（ ）。
ADOrs.New “Select * From Table1”
ADOrs.Open “Select * From Table1”
ADOrs.Execute “Select * From Table1”
ADOrs.Select “Select * From Table1”

ADOrs.Open “Select * From Table1”

4.VB中将变量x1声明为Excel应用程序对象的方法是（ ）。
Dim x1 As Excel.Application
Dim x1 As Excel.Workbook
Dim x1 As Excel.Worksheet
Dim x1 As Excel.Worksheets

Dim x1 As Excel.Application

5.一旦数据到达，将首先触发Winsock控件的（ ）。 DataArrival事件ConnectionRequest事件DataSend事件DataGet事件
DataArrival事件

6.VB程序通常不会产生错误提示的是（ ）。 编译错误 实时错误 运行时错误 逻辑错误
逻辑错误

7.DAO、RDO和ADO三种数据库对象中采用OLE DB访问数据库的是（ ）。 DAORDOADO以上都不是
ADO

8.在VB中，Access数据库属于（ ）。 本地数据库 网络数据库 外部数据库 远程数据库
本地数据库

9.ADO对象模型含有七种对象，其中用于建立一个和数据源的连接的对象是（ ）。 Command Connection Recordset Field
Connection

10.Winsock控件的LocalPort属性的作用是（ ）。 仅返回所有端口 仅设置所有端口 返回或设置所用端口 返回或设置IP地址
返回或设置所用端口

11.当使用SendData将数据发送到主机后时，将触发的Winsock控件的是（ ）。 SendProgress MouseDown Click KeyPress
SendProgress

12.要发送数据，通常使用Winsock控件的（ ）。 SendData方法 Listen方法 Accept方法 GetData方法
SendData方法

13.ADO对象模型含有七种对象，其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是（ ）。 Command Connection Recordset Field
Recordset

14.On Error Go To ErrLB语句中，ErrLB的含义是（ ）。 行标识符 Sub过程名 Function过程名 错误号
行标识符

15.在VB程序中逐语句调试的键是（）。 F8键 F9键 CtrlF8键 CtrlF9键
F8键

❷ vb编程题目

Private Sub Command1_Click()

If Len(Text1) >= 2 Then

Text1 = Left(Text1, 2)

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

End Sub

Private Sub Form_Load()

Label1.Caption = "新字符串"

Command1.Caption = "左边2个字符"

Command2.Caption = "清空"

Text1 = ""

'这里不知道 三号是多大时，可以手动设置文本框字体大小为三号，然后显示下字体大小，就知道三号字体等于15.75

Print Text1.FontSize

Text1.FontSize = 15.75

Text1.ForeColor = vbRed

Text1 = "aBcDeF"

End Sub

❸ vb编程题

1、

DimsAsInteger

PrivateSubCommand1_Click()

OnErrorResumeNext

Dimx(1To4)AsInteger

Forn=1To4

x(n)=InputBox("请输入第"&n&"个数：")

Printx(n);

s=s+x(n)

Nextn

Print

EndSub

PrivateSubCommand2_Click()

Prints/4

EndSub

2、

OptionExplicit

DimfileNameAsString

PrivateSubCommand1_Click()

'将文本框中的信息添加到列表框中

DimiAsInteger

WithListView1.ListItems.Add()

.Text=Text1(0)

Fori=1To4

.SubItems(i)=Text1(i)

Nexti

EndWith

EndSub

PrivateSubCommand2_Click()

'删除列表框中信息

IfListView1.ListItems.Count>0Then

IfMsgBox("真的要删除吗？",vbQuestion+vbYesNo+vbDefaultButton2)=vbYesThen

ListView1.ListItems.RemoveListView1.SelectedItem.Index

EndIf

EndIf

EndSub

PrivateSubForm_Load()

DimtpStrAsString,iAsInteger,jAsInteger

Me.Caption="通讯录"

Forj=0To4

Text1(j).Text=""

Nextj

fileName=App.Path&"data.txt"

IfDir(fileName)<>""Then

'加载数据

OpenfileNameForInputAs#1

DoWhileNotEOF(1)

WithListView1.ListItems.Add()

Fori=0To4

LineInput#1,tpStr

Ifi=0Then

.Text=tpStr

Else

.SubItems(i)=tpStr

EndIf

Nexti

EndWith

Loop

Close#1

EndIf

EndSub

PrivateSubForm_Unload(CancelAsInteger)

DimiAsInteger

DimtpListAsListItem

'保存数据

OpenfileNameForOutputAs#1

ForEachtpListInListView1.ListItems

Print#1,tpList.Text

Fori=1To4

Print#1,tpList.SubItems(i)

Nexti

NexttpList

Close#1

EndSub

❹ VB编程随机选题

首先你在建数据库的时候
在每道题目之前最后都有一个标识
例如
ID
1,2,3,4,5.....38..到最后一题
然后利用
Random
这个函数
这是个
随机函数
你可以用于随即产生
题目
ID中的一个数
从而对应到题目上去.
然后在按下一题的这个按钮时可以这样
把刚才产生的那个随机数
存储到一个
int
类型的变量中
然后按这个下一题的时候
这个
int
变量
加1,这样就可以得到下一题了.

❺ VB程序设计的几道题

一:
private sub form_click()
for i=1 to 4
print tab(8-i);string(i,str(i))
next i
二：
1@:
static sum as integer
sum=0
for i=1 to 100
sum=sum+i
i=i*(-1)
next i
print "sum=" & str(sum)
2@:
dim x%
x=1
for i=1 to 10
x=x*i
next i
print x
3@:
function sum(byval n as integer) as double
static sum as integer
sum=0
for i=1 to n
sum=sum+1
next i
end function
private sub command1_click()
static xs as double
xs=0
for i=1 to 100
xs=xs+sum(i)
next i
print xs
end sub
三:
1:
如下（）
2:
option base 1
private sub command1_click()
dim a(20)%
for i=1 to 20
a(i)=rnd*100
print a(i)
next i
dim max%
max=a(1)
for i=2 to 20
if a(i)>max then max=a(i)
next i
print str(max)
end sub

四：
private sub comand1_click()
static sum%
sum=0
for i=1000 to 2000
if i mod 400=0 or (i mod 4=0 and i mod 100<>0) then
list1.additem str(i)
sum=sum+i
end if
next i
text1=sum
2:
和上题基本上差不多，自己写吧。

❻ VB程序设计 , 期末考试题库 .求最后答案，回答几个是几个吧，但是不要乱给答案，谢谢。

VB考这些数学题干什么？现在的教育都在误导学生！！！VB应该是用来帮助我们学习的，不是研究什么是素数什么是乘除来乘除去的！无语了！每个学生都要研究这些吗？
答案也很简单，以下代码都是在Command1_Click()中执行。
1.我这个代码应该是你们要的结果，其实代码可以优化的更好玩（暂时不说）。
n = 0
for i = 100 to 666
a = Int(n / 100) '获得百位数，以下分别是获得十位数个位数
b = Int(Int(n / 10) Mod 10)
c = n Mod 100 Mod 10
if (a+b) Mod 10 = c then
print i '这里是在窗体print，具体如何显示结果你看你的试题要求喽。
end if
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then
'是素数,就累加
n=n+1
End If
next i
print n

2.
for i = 10 to 500 step 2
n = n +1
next i
print n
3.写到这里有点print烦了，什么题目啊，无聊至极
for i = 200 to 1000
if i mod 3 = 0 and i mod 5=0 then
n = n+i
end if
next i
print n
4.算了，这分我拿不下了。太累

❼ VB数据文件编程题目

Private Sub Command1_Click()

  Open "C:UsersAdministratorDesktop考生文件夹YY.txt" For Input As #1

    Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)

  Close #1

End Sub


Private Sub Command2_Click()

  Dim c As String, S As Integer

  For i = 1 To Len(Text1)

    If Asc(Mid(Text1.Text, i, 1)) >= 65 And Asc(Mid(Text1.Text, i, 1)) = 97 And Asc(Mid(Text1.Text, i, 1)) <= 122 Or Asc(Mid(Text1.Text, i, 1)) = 10 Or Asc(Mid(Text1.Text, i, 1)) = 13 Then S = S + 1

  Next i

  Label1.Caption = "共" & Len(Text1.Text) - S & "个非英文字母"

End Sub

❽ VB编程题目

窗体上添加2个文本框和1个按钮，文本框用来显示2个同学名字
Private
Sub
Command1_Click()
'交换名字

Dim
s
As
String

s
=
Text1.Text

Text1.Text
=
Text2.Text

Text2.Text
=
s
End
Sub

❾ 关于VB的15道判断题

1.因Windows应用程序共享剪贴板的信息，故当程序切换时剪贴板的内容将变化（×）
2.在VB中用鼠标管理长时间后台任务时用户无法切换应用程序或中断后台处理（×）
3.当程序运行时鼠标的托放功能将暂时失效（×）
4.键盘处理程序只能在控件级和窗体级之一的层次上工作（√）
5.VB窗体和一般VB对象都识别KeyPress、KeyDown和KeyUp事件（√）
6.无论是窗体还是控件都只有获得焦点才能接受键盘事件（√）
7.VB对象之所以能保护和验证其数据，是因为存在封装代码的机制（√）
8.VB类的创建可通过任意窗体添加类模块实现（√）
9.类模块中Initialize事件包括所有初始代码，Terminate事件包括所有后续代码（√）
10.VB类模块和标准模块的不同点在于存储数据的方法不同（×）
11.VB标准模块的数据只有一个备份，而类模块的数据独立于每一个对象（×）
12.VB标准模块的数据存在于程序作用域，类模块的数据只与对象存活期有关（√）
13.类的默认接口由属性、方法、事件和可见的私有变量组成（√）
14.数据隐藏可改变类，同时影响已存在的代码（√）
15.数据隐藏不允许定义只读属性，因为它需要保护对象的部分数据（×）
16.属性过程具有强大的封装功能，使得公共变量显得“徒有虚名”（×）
17.关系型数据库包含7个结构数据，Access数据库也是关系型的（√）
18.Data控件必须使用代码完成本地-远程数据库的链接（√）
19.DAO模型提供了数据库编程所需的所有属性和方法（×）
20.在使用DAO模型之前，必须保证已引用了DAO的对象（√）

❿ VB编程题目在线等

Dim a(1 To 10) As String
Dim i As Integer
Dim Sum1, Sum2 As Double
Sum1 = 0
Sum2 = 0
For i = 1 To 10
a(i) = CInt(Rnd(100) * 100)

If i Mod 2 = 0 Then
Sum1 = Sum1 + a(i)
Else
Sum2 = Sum2 + a(i)
End If
Next

MsgBox "偶数下标的和" & Sum1 & vbCrLf & "奇数下标的和" & Sum2
Text1.Text = Sum1
Text2.Text = Sum2