大小写互相转换。
大小写互相转换。
如图所示创建界面（一个文本框，一个按钮），程序运行后，单击“转换”按钮，可以text1中的大写字母转换为小写，把小写字母转换为大写。
答案：
Private Sub C1_Click()
For i = 1 To Len(Text1.Text)
a = Mid(Text1.Text, i, 1) ‘一个一个选择text1中的字符
For j = 97 To 122
If a = Chr(j) Then ‘判断是不是小写字母
f = 0 ‘是的话f=0
Exit For ‘并且要停止循环，不然会一直循环下去导致f=1。
Else ‘否则f=1，也就是大写字母
f = 1
End If
Next
If f = 0 Then ‘如果是f=0（也就是字母为小写的情况）
a = UCase(a) ‘就转大写
End If ‘结束
If f = 1 Then ‘如果f=1（也就是大写的情况）
a = LCase(a) ‘就转小写
End If
b = b & a ‘全部a都赋值给b
Next
Text1.Text = b ‘text1输出b
End Sub
网站声明：如果转载，请联系本站管理员。否则一切后果自行承担。
- 上周热门
- 银河麒麟添加网络打印机时，出现“client-error-not-possible”错误提示 1325
- 银河麒麟打印带有图像的文档时出错 1238
- 银河麒麟添加打印机时，出现“server-error-internal-error” 1025
- 统信桌面专业版【如何查询系统安装时间】 953
- 统信操作系统各版本介绍 946
- 统信桌面专业版【全盘安装UOS系统】介绍 905
- 麒麟系统也能完整体验微信啦！ 892
- 统信【启动盘制作工具】使用介绍 501
- 统信桌面专业版【一个U盘做多个系统启动盘】的方法 443
- 信刻全自动档案蓝光光盘检测一体机 389
- 本周热议
- 我的信创开放社区兼职赚钱历程 40
- 今天你签到了吗？ 27
- 信创开放社区邀请他人注册的具体步骤如下 15
- 如何玩转信创开放社区—从小白进阶到专家 15
- 方德桌面操作系统 14
- 我有15积分有什么用? 13
- 用抖音玩法闯信创开放社区——用平台宣传企业产品服务 13
- 如何让你先人一步获得悬赏问题信息？（创作者必看） 12
- 2024中国信创产业发展大会暨中国信息科技创新与应用博览会 9
- 中央国家机关政府采购中心：应当将CPU、操作系统符合安全可靠测评要求纳入采购需求 8
