用vbAfor循环语句如何写:有四个数字:1,2,3,4,能组成多少个互不相同且无重复数字的三位数?各是多少?这个程序
2条回答 默认 最新
- CSDN专家-showbo 2022-05-15 12:19关注
示例代码如下
Sub getnumbers() num = 0 result = "" For i = 1 To 4 For j = 1 To 4 If i <> j Then For k = 1 To 4 If j <> k And i <> k Then result = result & vbNewLine & i & j & k num = num + 1 End If Next End If Next Next result = Trim(result) MsgBox "ÊýÁ¿£º" & num & vbNewLine & result End Sub
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报 编辑记录
悬赏问题
- ¥15 NAO机器人的录音程序保存问题
- ¥15 C#读写EXCEL文件,不同编译
- ¥15 MapReduce结果输出到HBase,一直连接不上MySQL
- ¥15 扩散模型sd.webui使用时报错“Nonetype”
- ¥15 stm32流水灯+呼吸灯+外部中断按键
- ¥15 将二维数组,按照假设的规定,如0/1/0 == "4",把对应列位置写成一个字符并打印输出该字符
- ¥15 NX MCD仿真与博途通讯不了啥情况
- ¥15 win11家庭中文版安装docker遇到Hyper-V启用失败解决办法整理
- ¥15 gradio的web端页面格式不对的问题
- ¥15 求大家看看Nonce如何配置