vb如何 点击按钮 使程序恢复到初始状态 重新开始？

只纤尘要在按钮下把form_load代码复制过来就行了！

也可以用粗竖敬goto语句，先在程序初始化代码前加 标号 然后再按钮Click事件里用GOTO跳转，不过不建议这样。

手岩慎机答题，望采纳

1. 用vb如何把输出的数字在指定位置显示

下面的代码是在窗体的中心位置显示数字12345

Dim s As String

s = "12345"

CurrentX = (ScaleWidth - TextWidth(s)) \ 2

CurrentY = (ScaleHeight - TextHeight(s)) \ 2

Print s下面的代码是在窗体的左下角显示数字88888

Dim s As String

s = "88888"

CurrentX = 0

CurrentY = ScaleHeight - TextHeight(s)

Print s下面的代码是在窗体的（600, 450）的位置显示字符hello

Dim s As String

s = "helllo"

CurrentX = 600

CurrentY = 450

Print s

2. vb中让数字倒转怎么设计程序

Private Sub mand1_Click()

x = CLng(InputBox（"请输入一个整数："））

y = 0

X1 = x

While X1 >0

y = y * 10 + X1 Mod 10 '将x1中的末位数字添加到y末位

X1 = X1 \ 10 '将X1的末位去除

Wend

MsgBox x &； " 数字倒转后是 " &y

End Sub

3. vb编程时如何把输入的数字四舍五入成整数

Cint （) 但是请注意： Cint会把数值转化为 最接近的偶数值，比如Cint(1.5) =2Cint(0.5)=0

CInt Integer -32,768 至 32,767，小数部分四舍五入。

CLng Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。

他的答案裂明不错

浪花飘零2000 | 八级 最快回答 print int(n+0.5) n为任意小数

举例

print int(1.4+0.5) 输出1

print int(1.5+0.5) 输出2

若满意请及时采纳谢谢

4. VB 如何去掉数字前面的“0” 后追分

'如果不确让和定text1中的内容是否一定是数字，用以下代码，

Private Sub mand1_Click()

Dim s1 As String

s1 = Trim(Text3.Text)

Do While Left(s1, 1) = 0

s1 = trim(Mid(s1, 2, Len(s1) - 1））'这样可以去掉0后面的空格键

Loop

MsgBox s1

End Sub

'如果确定是数字，就简单了 直接

Private Sub mand1_Click()

MsgBox val(Trim(Text3.Text))

End Sub

5. vb怎样解析数字

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Dim i As Integer i = Val(TextBox1.Text) TextBox2.Text = i \ 100 Mod 10 TextBox3.Text = i \ 10 Mod 10 TextBox4.Text = i Mod 10 End SubTextbox.text的内容通常是文数字（alphanumeric）也就是文字跟数字可能e68a847a686964616f31333335313135混合出现要做数值运算需先转成纯数值处理可以使用val（)函数来转换现在可以想像下输入的数字是几位数？可能会超过三位那就输入12345好了要取出百位数字有个方法是12345/100 = 123.4512345\100 = 123123 mod 10 = 3\是整数除法若用/会有小数点问题要处理而mod是取馀数的意思123/10=12馀3mod就是显示馀多少用的在C语言中，mod对应的是%，只有整数取馀数才能正常执行这类取位数问题皆可依此类推大概就会写出如上的程式码事件是采TextChanged也就是在文本框每改变一符号肆滑告就执行一次在Form1.vb连点两下Textbox应该就是那事件了。

6. 用VB怎样把输入的 *** 数字变为*

Private Sub Form_Load（) '这是您要的

Text1.PasswordChar = "*"

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) '使输入的字符在0~9之间。

If KeyAscii = 8 Or KeyAscii >= 48 And KeyAscii <58 Then

Else

KeyAscii = 0

End If

End Sub

这么简单的问题啊

Dim s 尘培As String

Private Sub Command1_Click()

Text1.Text = s

End Sub

Private Sub Command2_Click()

Command1.Enabled = True

s = Text1.Text

Text1.Text = 灶灶""

End Sub

Private Sub Form_Load()

Command1.Enabled = False

End 派辩唯Sub

---