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