Question

VB的下划线如何输入

Private Sub Form_Click()
thickness = 0.1 / 1000
n = 0
high = 8848
Do while______
n=______
thickness=_______
Loop
Print "折"; n; "次，厚度可达到"; thickness; "，高于珠穆朗玛峰"
End Sub

这个我是在书上看到，想自己做的，用了下划线系统说无效字符。求解
是问就“假设一张足够大的纸，纸的厚度为0.1毫米。现将其对折，再对折。”这样的问题。。大哥教我怎样改吧，我是新手

Answer 1

下划线意思是让你把代码补充完整,我补充如下:
Private Sub Form_Click()
thickness = 0.1 / 1000
n = 0
high = 8848
Do while n<= high
n=n+thickness
thickness=thickness * 2
Loop
Print "折"; n; "次，厚度可达到"; thickness; "，高于珠穆朗玛峰"
End Sub

每折一次,thickness 就等于翻了一陪,n是用来存储每折一次后当前纸的厚度,直到n>8848(珠穆朗玛峰的高度)就退出循环

Answer 2

写一个过程,用来要变的TextBox
Private Sub PreTextBox(txt As TextBox)
'去除边框
txt.BorderStyle = 0
'背景跟窗口同色
txt.BackColor = Me.BackColor

'画一条线在Text的下面
Me.AutoRedraw = True
Me.Line (txt.Left, txt.Top + txt.Height)-(txt.Left + txt.Width, txt.Top + txt.Height)
End Sub

Private Sub Form_Load()
'用的时候这样
PreTextBox Text1
End Sub

Answer 3

那下划线是要你自己输入，do while那明显是条件 具体条件没看明白，也给不出你应该填什么。