Private Sub Command1_Click()
Dim X As String
Dim I As Long
Dim S As String
Dim CH As String
X = Text1.Text
For I = 1 To Len(X)
CH = Mid(X,I,1)
If CH >= "a " And CH = "A" And CH
猜你喜欢
- 1日全食,日偏食,日环食的地球,月亮,太阳的位置?
- 2英语音标发音表,求发音规律详解~
- 3用练习三里的成语写一段关于孙悟空的话,150字
- 4正比例函数y=-kx图像经过第一,第三象限,则k等于多少,
- 5作者通过三峡的哪些景物景观,来表现三峡的壮丽风光的?
- 6把一个两位数的个位数字与十位数字交换后得到一个新的两位数,把这两个两位相加后恰好等于两个
- 7某锂电池的总方程式可表示为:LI+MnO2→LiMnO2若该电池提供0.5C电量,则 消耗正极材料的质量约为多少?(其他损耗忽略不计)
- 8含有8个质子,10个中子的某核素9g,则原子个数为多少NA
- 9一项工程,甲队单独做15天可以完成,乙队单独做4天可以完成这项工程的5分之1,两队同时做.多少天可以完成
- 10将半径为12cm的铁球融化,重新铸造出27个半径相同的小铁球(不计损耗),小铁球半径是多少cm?(提示:球的体积公式为v=4/3πR3)