vb 作业题

来源：百度知道 编辑：UC知道 时间：2024/05/04 22:44:36
设有一张厚为x毫米，面积足够大的纸，将它不断地对折。试问对折多少次后，其厚度可达珠穆朗玛峰的高度（8848米）。在窗体上设计相应的控件，编写程序实现上述功能。要求，用文本框实现纸的初始厚度的输入。利用文本框控件的焦点事件判断输入的纸的初始厚度是否在0到100毫米之间。编写文本框的KeyPress事件过程，实现对回车键的使用（界面自行设计）。

Option Explicit

Private Sub Command1_Click()
Dim i As Integer, N As Single
i = Val(Text1.Text)
N = (8848 - i) / 2 + 1
N = IIf(Int(N) = N, N, Int(N) + 1)
MsgBox "对折" & N & "次后，其厚度可达珠穆朗玛峰的高度（8848米）", vbInformation, "计算结果"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub

Private Sub Text1_LostFocus()
Dim i As Integer
i = Val(Text1.Text)
If i >= 0 And i <= 100 Then
Else
MsgBox "纸张厚度为0-100毫米之间！", vbCritical, "出错"
Text1.SetFocus
End If
End Sub