VB写一个小程序

258关注1437浏览

在输入a,e,i,o,u时显示“是元音”
在输入其他的字母时显示“不是元音”
输入数字显示“请输入字母”
像2楼写的我都不用在网上问了
用dim a as string 然后用msgbox"" 最后用if...then else
可是字符排除不了

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Kaylee

    19人对此回答表示赞同

    我们微机课上学的都不向这个这么简单 …………
    展开
    19
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Nova

    18人对此回答表示赞同

    if text1.text = "a" or "e" or "i" or "o" or "u" then
    msgbox "是元音"
    end if
    if text1.text = "b" or "c" or "d" or "f" or "g"……自己打! the
    展开
    18
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Evelyn

    17人对此回答表示赞同

    我学的时候,也是这样做的```
    展开
    17
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Wing

    13人对此回答表示赞同

    '简单的做法是这样的。其它具体的限制就不写了。自己改改。

    Private Sub Text1_Change()
    If Not Text1.Text Like "*[!A-Za-z]*" Then
    For i = 1 To 5
    If InStr(Text1.Text, Mid("aeiou", i, 1)) <> 0 Then
    MsgBox "有元音字母。"
    展开
    13
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部