请问怎样做VB请问VB的毕业报告怎样写

[求VB课程设计代码文件最好有报告及模板！VB初级者急用！谢谢！]ef x As Integer, ByRef y As Integer) As Integer ADD = x + y End Function Private Function Multi(x As Integer, y As Integer) As Integer Multi = x * y End Functio...+阅读

请问怎样做VB请问VB的毕业报告怎样写

你好，给你一点建议供你参考，希望对你有帮助：学生管理系统 VB版 1系统设计 1。1系统功能分析 1。2系统功能模块设计 2数据库设计 2。1数据库需求分析 2。 2数据库概念结构设计 2。3数据库逻辑结构设计 3数据库结构的实现 3。1创建数据库和数据表 3。2 SQL Server 2000设置 3。3 Visual Basic设置 3。 4创建数据库 3。5创建ODBC 3。6运行程序 4学生管理系统主窗体的创建 4。1创建工程项目Student MIS 4。2创建学生管理系统的主窗体 4。 3创建主窗体的菜单. 4。4创建公用模块 5系统用户管理模块的创建. 5。1用户登录窗体的创建 5。2添加用户窗体的创建. 5。3修改用户密码窗体的创建 6学籍管理模块的创建. 6。 1添加学籍信息窗体的创建 6。2修改学籍信息窗体的创建 6。3查询学籍信息窗体的创建 7班级管理模块的创建 7。

1添加班级信息窗体的创建 7。 2修改班级信息窗体的创建 8课程设置模块的创建 8。1添加课程信息窗体的创建 8。2修改课程信息窗体的创建 8。3设置年级课程窗体的创建 9成绩管理模块的创建. 9。 1添加成绩信息窗体的创建 9。2修改成绩信息窗体的创建 9。3查询成绩信息窗体的创建 10帮助模块的设计 10。1系统的实现 10。 2系统的编译 10。3小结。

程序设计VB实验

Option Explicit Function Prime(N As Integer) As Boolean Dim I As Integer If N < 2 Then Prime = False: Exit Function For I = 2 To N - 1 If N Mod I = 0 Then Prime = False: Exit Function Next Prime = True

End Function Private Sub Form_Load() Dim X(1 To 80) As Integer, A() As Integer, B() As Integer Dim J As Integer, I As Integer, T As Integer, N As Integer Dim strT As String * 5, Txt As String For I = 1 To 80 X(I) = Int((99 - 10 + 1) * Rnd + 10) strT = CStr(X(I)) Txt = Txt & strT N = N + 1 If N Mod 10 = 0 Then Txt = Txt & vbCrLf Next N = 0 J = 0 For I = 1 To 80 If X(I) Mod 2 <> 0 Then J = J + 1 ReDim Preserve B(J) B(J) = X(I) End If Next

For I = 1 To UBound(B) For J = I + 1 To UBound(B) If B(I) > B(J) Then T = B(I): B(I) = B(J): B(J) = T End If Next Next Txt = Txt & vbCrLf & vbCrLf &；＂奇数＂ & vbCrLf For I = 1 To UBound(B) strT = CStr(B(I)) Txt = Txt & strT If I Mod 10 = 0 Then Txt = Txt & vbCrLf Next

Txt = Txt & vbCrLf & vbCrLf &；＂素数＂ & vbCrLf N = 0 Dim S As Integer For I = 1 To 80 If Prime(X(I)) Then S = S + X(I) strT = CStr(X(I)) Txt = Txt & strT N = N + 1 If N Mod 10 = 0 Then Txt = Txt & vbCrLf End If Next Text1.Text = Txt End Sub

vb数据库实训总结

在VB中压缩ACCESS数据库如果您在Access数据库、Access项目中删除数据或对象，可能会产生碎片并导致磁盘空间使用效率的降低。同时，数据库文件的大小并未减小，而是不断的增大，直至您的硬盘没有空间。有没有好的处理方法呢？其实，在Access中可以对数据库进行压缩优化以提升Access数据库和Access项目的性能，这样的压缩处理的实质是复制该文件，并重新组织文件在磁盘上的存储方式。但是，在Access项目中进行这样的压缩不会影响到数据库对象（例如表或视图），因为它们是存储在Microsoft SQL Server数据库中而不是在Access项目本身中。同样，这样的压缩也不会影响到Access项目中的自动编号。在Access数据库中，如果已经从表的末尾删除了记录，压缩该数据库是就会重新设置自动编号值。

添加的下一个记录的自动编号值将会比表中没有删除的最后记录的自动编号值大一。下面介绍如何在VB中用一个CompactJetDatabase过程实现对Access数据库文件的压缩处理，在这个过程中有一个可选参数，就是在压缩前你是否需要把原有的数据库文件备份到临时目录（True或False）。我用此办法使21.6MB的数据库压缩到仅仅300KB。 '这些代码可放在模块中，在其他窗体也使用 Public Declare Function GetTempPath Lib ＂kernel32＂ Alias _ ＂GetTempPathA＂ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public Const MAX_PATH = 260 Public Sub CompactJetDatabase(Location As String, Optional BackupOriginal As Boolean = True) On Error GoTo CompactErr Dim strBackupFile As String Dim strTempFile As String '检查数据库文件是否存在 If Len(Dir(Location)) Then '如果需要备份就执行备份 If BackupOriginal = True Then strBackupFile = GetTemporaryPath & ＂backup.mdb＂ If Len(Dir(strBackupFile)) Then Kill strBackupFile FileCopy Location, strBackupFile End If '创建临时文件名 strTempFile = GetTemporaryPath & ＂temp.mdb＂ If Len(Dir(strTempFile)) Then Kill strTempFile '通过DBEngine压缩数据库文件 DBEngine.CompactDatabase Location, strTempFile '删除原来的数据库文件 Kill Location '拷贝刚刚压缩过临时数据库文件至原来位置 FileCopy strTempFile, Location '删除临时文件 Kill strTempFile Else End If CompactErr: Exit Sub End Sub Public Function GetTemporaryPath() Dim strFolder As String Dim lngResult As Long strFolder = String(MAX_PATH, 0) lngResult = GetTempPath(MAX_PATH, strFolder) If lngResult 0 Then GetTemporaryPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1) Else GetTemporaryPath = ＂＂ End If