vb快解试题一：函数和过程1
所有的题目我已做完，有的位置如果做的不好也请您指出，相关的程序文件在压缩包内(完整的文件会发到您的邮箱里，前三个试题的答案从这里可以得到)，下面是代码以供参考：
试题一：函数和过程
1．编写过程计算1+1/2+1/3+…。 +1/100
程序：
Private sum As Single
Private Sub 倒数相加()
sum = 0
For i = 1 To 100 '从1到100的循环
sum = sum + 1 / i '计算1到100的倒数之和
Next
End Sub
Private Sub Form_Load()
Dim str As String '定义一个字符串...全部
所有的题目我已做完，有的位置如果做的不好也请您指出，相关的程序文件在压缩包内(完整的文件会发到您的邮箱里，前三个试题的答案从这里可以得到)，下面是代码以供参考：
试题一：函数和过程
1．编写过程计算1+1/2+1/3+…。
+1/100
程序：
Private sum As Single
Private Sub 倒数相加()
sum = 0
For i = 1 To 100 '从1到100的循环
sum = sum + 1 / i '计算1到100的倒数之和
Next
End Sub
Private Sub Form_Load()
Dim str As String '定义一个字符串，用于打印
Call 倒数相加 '调用自定义过程
str = "1"
For i = 2 To 100
If (i 1 Then
Label1。
Caption = Format$(num1 / sqr(1024, 2), "#。##") & "G"
Else
Label1。Caption = Format$(num1 / sqr(1024, 1), "#。
##") & "M"
End If
If num2 / sqr(1024, 2) > 1 Then
Label2。Caption = Format$(num2 / sqr(1024, 2), "#。
##") & "G"
Else
Label2。Caption = Format$(num2 / sqr(1024, 1), "#。##") & "M"
End If
If (num1 - num2) / sqr(1024, 2) > 1 Then
Label3。
Caption = Format$((num1 - num2) / sqr(1024, 2), "#。##") & "G"
Else
Label3。Caption = Format$((num1 - num2) / sqr(1024, 1), "#。
##") & "M"
End If
End Sub
Private Sub GetDrivesInfo()
Dim i As Drive '将i定义为一个驱动器属性
Dim DriSpace As Long
Dim DriAvSpace As Long
Set fs = CreateObject("Scripting。
FileSystemobject")
'将fs创建成一个FileSystemObject对象
'FileSystemObject对象是用来提供对计算机文件系统的访问的对象具体详见MSDN
Set i = fs。
GetDrive(fs。GetDriveName(Drive1。Drive)) '使i获得驱动器对象
If i。IsReady Then '判断驱动器对象是否准备好
DriSpace = i。
TotalSize / 1024
DriAvSpace = i。AvailableSpace / 1024
Call PrintSpaceIfo(DriSpace, DriAvSpace)
Else '如果驱动器没准备好
Select Case i。
DriveType '判断驱动器的种类
Case 1
MsgBox ("可移动驱动器无效或没有格式化")
Case 2
MsgBox ("硬盘驱动器无效或没有格式化")
Case 4
MsgBox ("CDROM无效或没有光碟")
End Select
End If
End Sub
Private Sub Drive1_Change()
Call GetDrivesInfo
End Sub
Private Sub Form_Load()
Call GetDrivesInfo
End Sub
。
收起
