13518219792
Option Explicit On
创新互联-专业网站定制、快速模板网站建设、高性价比彭泽网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式彭泽网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖彭泽地区。费用合理售后完善，10年实体公司更值得信赖。
Option Strict On
Imports System
Module Program
Sub Main()
Dim s As String
Dim strs As String()
Dim fz,fm,n,m,t As Long
Console.Write("请输入一个小数：")
s=Console.ReadLine().Trim()
strs=s.Split("."C)
fz=CLng(strs(0))
fm=CLng(Math.Pow(10,strs(1).Length))
fz=fz*fm+CLng(strs(1))
n=fz
m=fm
While n Mod m0
t=n Mod m
n=m
m=t
End While
fz\=m
fm\=m
Console.WriteLine("{0}={1}/{2}",s,fz,fm)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
例如你有三个输入框，为txtOne
，txtTow，txtThree，
Dim
max1
as
double;
max1=
Convert.ToDouble(txtOne.Text)Convert.ToDouble(txtTow.Text)?"txtOne.Text":"txtTow.Text"
max1=
Convert.ToDouble(txtThree.Text)max1?"txtThree.Text“:"max1";
textBox.text=max1;
我使用记事本写的代码可能不规范哦，自己修改即可。
每个textbox都有KeyPress事件（event），每次用户输入一个字符时检测，如不满足则清空
我现在不在vs下，你可以找到这个面板，绑定相应的函数
比如只能显示数字
Private Sub NumBox_KeyPress(KeyAscii As Integer)
If Not IsNumeric(NumBox.Text) Then
NumBox.Text = ""
End If
End Sub
只能显示英语（a-z 97-122； A-Z 65-90； 8（退格）和13（换行））
Private Sub EngBox_KeyPress(KeyAscii As Integer)
If Not (KeyAscii = 97 And KeyAscii=122) Or (KeyAscii = 90 And KeyAscii=65) Or = 8 Then
EngBox.Text = ""
End If
End Sub
只能显示汉字（汉字的ASCII值要么小于0，要么是8（退格）和13（换行））
Private Sub ChineseBox_KeyPress(KeyAscii As Integer)
If Not KeyAscii 0 Or KeyAscii = 8 Or KeyAscii = 13 Then
ChineseBox.Text=""
End If
End Sub
做了一些小修改，不明白请及时追问，满意敬请采纳，O(∩_∩)O谢谢
合法性校验有很多方法，要视情况而定，比如说可以用正则表达式，如果是数字，除了正则表达式，也可以用诸如TryParse这种方法。
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If System.Text.Encoding.Default.GetByteCount(TextBox1.Text) = 11 And e.KeyChar Chr(8) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
这个不太完善，是假设原来文本长度已经有11就不允许继续输入，因为判断当下输入的是汉字还是英文很麻烦。
e.KeyChar Chr(8)这句是保证任何时候Backspace键都要有效。
希望能对你有所帮助。
