双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

帮我一个忙哦~~大哥哥们

2007-12-28 09:12:05 106 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

tianyalangzi1985 墨衍会员 · AI 创作全网分发关注 + 加入社区

缺陷检测-金属表面缺陷检测 1介绍缺陷检测是工业视觉技术中最重要的组成部分。业务广泛，场景丰富，技术难点高、工作量大。针对不同的场景，选择不同的相机和阅读详情

将从键盘上输入的一位数字翻译为对应的英文单词，若输入长度大于1且不是0—9之间的数字，则显示“输入错误，请重新输入”的信息。

...全文

保姆级图解：HKMG工艺中的‘覆盖层’(Cap Layer)到底怎么调阈值电压？本文深入解析了HKMG工艺中覆盖层(Cap Layer)如何精准调控阈值电压的关键技术。通过原子级精度的ALD工艺和材料选择，覆盖层在半导体制造中扮演着隐形调节器的角色，直接影响晶体管的电气特性。文章详细介绍了La2O3和Al2O3等材料的特性对比、ALD工艺的原子级控制，以及实战调试中的关键步骤和问题排查方法。阅读详情

tianyalangzi1985

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

lianzy 2007-12-28

打赏
举报



Option Explicit

Dim en(0 To 9) As String

Const str = "0123456789"

Private Sub Command1_Click()

If Len(Text1.Text) <> 1 Then

    MsgBox "请输入0 to 9的数字"

    Text1.SetFocus

    Exit Sub

ElseIf InStr(str, Text1.Text) = 0 Then

    MsgBox "请输入0 to 9的数字"

    Text1.SetFocus

    Exit Sub

Else

    MsgBox en(CInt(Text1.Text))

    Text1.SetFocus

End If

End Sub



Private Sub Form_Load()

en(0) = "zero"

en(1) = "one"

en(2) = "two"

en(3) = "three"

en(4) = "four"

en(5) = "five"

en(6) = "six"

en(7) = "seven"

en(8) = "eight"

en(9) = "nine"

End Sub

cike_1111 2007-12-28

打赏
举报

看来看去....
好象楼主的题目好难揣摩啊!!

2楼(is me) 实现的目的是在 text中输入数字自动转英文不知道是不是楼主要的...

1楼的代码我没明白干什么用....

cike_1111 2007-12-28

打赏
举报

材料:
1*text1

代码:



Private Sub Form_Load()

Text1 = ""

End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then

kyeascii = 8

Else

If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox "请输入0-9的数字"

Select Case KeyAscii

Case (49)

Text1.Text = Text1 & "One": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (50)

Text1.Text = Text1 & "Two": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (51)

Text1.Text = Text1 & "Three": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (52)

Text1.Text = Text1 & "Four": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (53)

Text1.Text = Text1 & "Five": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (54)

Text1.Text = Text1 & "Six": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (55)

Text1.Text = Text1 & "Seven": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (56)

Text1.Text = Text1 & "Eight": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (57)

Text1.Text = Text1 & "Nine": KeyAscii = 0: Text1.SelStart = Len(Text1)

Case (48)

Text1.Text = Text1 & "Zero": KeyAscii = 0: Text1.SelStart = Len(Text1)

End Select

End If

End Sub

========================
运行效果: 该text完全符合楼主要求
1.输入非数字字符后给出提示
2.将输入的数字自动转换为英文

✦双11狂欢大促✦

帮我一个忙哦~~大哥哥们

相关推荐

双11狂欢大促