浙江大学城市学院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