浙江大學城市學院vb實驗報告答案

A. vb程序實驗報告總結

你們老師也可能上網路知道
布置幾天了現在才想起來完成

B. 求VB實驗報告，（程序設計基礎，實驗項目——數組）

一、實驗目的

1． 掌握定義數組的方法；

2． 能配合循環語句編程對數組進行操作；

3． 了解控制項數組的基本概念與簡單編程。

二、實驗內容

1． 填空完成下列程序段，產生一組[100，200]間的隨機整數，顯示這組數，並求出它們的平均值。

Private Sub Command1_Click()

Dim ab(20) As Integer ' 數組ab有______個元素

Dim i%, s As Integer

For i = 1 To 20

ab(i) = ____________ ' 填空為數組元素賦值

Print "第"; i; "個數是 "; ab(i) ' 試改為用標簽輸出

s = ____________

__________

Print "平均值是:"; s / 20

End Sub

2．編程輸入10名學生某一門課的成績，求出其中的最高分、最低分和所有學生的平均分。

3．編程輸入10名學生姓名和一門課的成績，輸出最高分的學生姓名及其成績，再顯示成績低於平均分的學生姓名及其成績。

4． 用計算機模擬擲骰子游戲。編程序統計擲N次（N盡量的大，例如100000次）後各點數出現的次數。

〔提示〕定義數組Dian(1 To 6)，分別存放1至6點出現的次數。產生一個[1，6]間的隨機整數x，如果是3，就將Dian(3)的值增加1，依此類推。

5．製作一個模擬電話撥號的界面。按下標題為0~9的十個數字鍵時文本框中顯示相應數字型大小碼；按「退格」鍵時清除最後一位數字；按「清空」鍵時清除文本框中的所有數字。

[提示] 10個數字鍵設計成一個控制項數組，可簡化代碼。

6．在文本框Text1中輸入一串字元，用標簽Label1顯示其中出現頻率最高的字母及其出現次數。

例如：輸入「 This is a beautiful world. 」則輸出「使用頻率最高的是i，共出現3次。」

三、實驗結果

請在此簡述實驗完成情況，並列出你編寫的各工程的主要命令代碼：

四、討論

你在完成實驗過程中遇到的最大困難是什麼？

C. 各位哥哥姐姐 幫忙寫下VB實驗報告 寫1程序代碼和實驗過程 2結果分析 謝謝拉

'1.新建個vb6工程，一個窗體文件；
'2.復制下面代碼到新窗體的代碼頁中：

Option Explicit

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Const FO_MOVE = &H1
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME = &H4
Private Const FOF_MULTIDESTFILES = &H1
Private Const FOF_CONFIRMMOUSE = &H2
Private Const FOF_SILENT = &H4 ' don't create progress/report
Private Const FOF_RENAMEONCOLLISION = &H8
Private Const FOF_NOCONFIRMATION = &H10 ' Don't prompt the user.
Private Const FOF_WANTMAPPINGHANDLE = &H20 ' Fill in SHFILEOPSTRUCT.hNameMappings

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type

'------------------------------------------------------------
Private Const mstrPathExeFrom As String = "E:\TestExe.exe" 'path of source exe file
Private Const mstrPathTxtFrom As String = "E:\TestTxt.txt" 'path of source txt file
Private Const mstrPathExeTo As String = "C:\Test" 'path of target exe file
Private Const mstrPathTxtTo As String = "C:\TestTxt" 'path of target txt file
Private Const mlngNumber As Long = 100 'number of
Private Const mstrExtentionExe = ".exe"
Private Const mstrExtentionTxt = ".txt"

' function
Function ShellFileOP(sFileArray As String, sDestination As String, iFlg As Integer) As Long
Dim r As Long
Dim sFiles As String
Dim SHFileOp As SHFILEOPSTRUCT

Debug.Print sFileArray

With SHFileOp
Select Case iFlg
Case 1
.wFunc = FO_COPY
Case 2
.wFunc = FO_MOVE
Case Else
End Select
.pFrom = sFileArray
.pTo = sDestination
.fFlags = FOF_SILENT + FOF_NOCONFIRMATION
End With

ShellFileOP = SHFileOperation(SHFileOp)

DoEvents
End Function

Private Sub Form_Load()

Dim nret As Long
Dim i As Long

On Error GoTo ERR_TRAP

' to C:\
For i = 1 To mlngNumber
'Exe File
nret = ShellFileOP(mstrPathExeFrom, mstrPathExeTo & i & mstrExtentionExe, 1)
'Txt File
nret = ShellFileOP(mstrPathTxtFrom, mstrPathTxtTo & i & mstrExtentionTxt, 1)
Next i

'project close
End

Exit Sub
ERR_TRAP:
MsgBox Err.Number & "：" & Err.Description, vbCritical, "save error"
Exit Sub
End Sub

'3.按照實際情況，更改上面幾個文件的路徑和名稱

D. VB實訓設計報告

實訓報告很好對付，實驗目的、日期；
內容：可以直接粘貼你自己的代碼，這很占篇幅的
最後再加上500~600字的實驗感想，比如實驗中遇到什麼困難，是如何如何解決的。OK搞定。

E. VB 實驗報告

Dim a(1 To 80) As Integer
Private Sub Command1_Click() '產生80個隨機數
Dim i As Integer
Randomize
For i = 1 To 80
a(i) = 10 + Int(Rnd * 90)
Text1.Text = Text1 & a(i) & " "
Next
End Sub

Private Sub Command2_Click() '將其中的奇數由小到大排列並輸出
Dim b() As Integer, t As Integer, k As Integer
Dim i As Integer, j As Integer
k = 0
For i = 1 To 80
If a(i) Mod 2 <> 0 Then
k = k + 1
ReDim Preserve b(k)
b(k) = a(i)
End If
Next i

For i = 1 To k - 1
For j = i + 1 To k
If b(i) > b(j) Then
t = b(i): b(i) = b(j): b(j) = t
End If
Next j, i

For i = 1 To k
Text2.Text = Text2.Text & b(i) & " "
Next i
End Sub

Private Sub Command3_Click() '找出80個隨機數中的素數
Dim i As Integer, k As Integer, j As Integer
For i = 1 To 80
k = Sqr(a(i))
For j = 2 To k
If a(i) Mod j = 0 Then Exit For
Next j
If j > k Then
Text3.Text = Text3.Text & a(i) & " "
End If
Next i
End Sub

注意程序界面中的控制項名要與我程序中的控制項名一致。

F. vb做完計算器寫實驗報告 怎麼寫

網上有 一個vb最簡單入門
CHM格式的
我記得裡面就有一個計算器的編程
講得詳細的不行
lz可以找來看看

G. 實驗報告02 :VB程序設計基礎,使用dim方法寫出VB語句 定義X為整型變數

1、（1） Dim x As Integer '整型變數
Dim y As Long '長整型變數
Dim z As Single '單精度浮點型變數
Dim str As String '字元型變數
（2） Static sum As Integer '整形靜態型變數
（3） Public f As Integer '整形全局變數

2、Integer(整型)數據的取值范圍：-32768 ~ +32767
3 、 取出 x 的值，加1以後賦值給 x
可改寫成: y = x
x = y + 1
4、 [-9,9]的隨機整數 x = Int(19 * Rnd -9)
請參考採納！謝謝！

H. VB程序設計實驗報告

1.實驗名稱 實驗二 Visual Basic基本語句

2.實驗目的

(1)掌握Visual Basic的數據類型和變數定義方法。

(2)正確使用Visual Basic的運算符和表達式。

(3)掌握Visual Basic中數據輸入、輸出的方法。

(4)掌握Visual Basic常用函數的使用方法。

(5)學會用賦值語句構造簡單的順序結構程序。

3.實驗內容

輸入實驗指導書上實例後運行，並分析輸出結果。

4.實驗方法與步驟

實例1 邏輯型數據的使用。

Private Sub Form_cliCk()

Dim a AS Boolean， b AS Boolean

Dim X AS Integer， y AS Integer

X = 0

y = -2

a = X

b = y

Print a,b,x,y

a = True

b = FalSe

X = a

Y=b

Print x,y,a,b

End Sub

實驗步驟：

1.界面設計:XXXXX;

2.輸入代碼;

3.調試運行。

實例2 XXXXX

…………

5.實驗結果及其分析

注:實驗報告內容應包含實驗名稱、實驗目的、實驗方法與步驟、實驗結果及分析。
實例1

輸出結果：XXXXXXXXX

分析：XXXXXXXXXXX

………

I. VB基本控制項實驗報告怎麼寫，下面有題。

第二問不就是添加控制項嗎？自己添加好了。
我給你第五問：
private sub command1_click()
if text1.text="123456" then
msgbox "密碼正確。",vbokonly,"提示信息"
else
msgbox "密碼錯誤。",vbokonly,"提示信息"
end if
end sub

J. 求篇VB程序設計的實驗報告

Private Sub Command1_Click() Dim str As String str = MsgBox("Are you continue to？", vbAbortRetryIgnore Or vbDefaultButton1 Or vbQuestion, "功能測試") Select Case str Case vbAbort MsgBox "3", , "功能測試" Case vbRetry MsgBox "4", , "功能測試" Case vbIgnore MsgBox "5", , "功能測試" End Select End Sub