用vb编写程序。

咩咩笑笑 2024-05-17 05:35:05

最佳回答

方法一：private sub command1_click() form1.cls dim i1 as integer, i2 as integer, i3 as integer, i4 as integer, i5 as integer dim cl**t as string for i1 = 65 to 70 for i2 = i1 + 1 to 70 for i3 = i2 + 1 to 70 cl**t = chr(i1) & chr(i2) & chr(i3) if checkl**t(cl**t) = 1 then print cl**t end if for i4 = i3 + 1 to 70 cl**t = chr(i1) & chr(i2) & chr(i3) & chr(i4) if checkl**t(cl**t) = 1 then print cl**t end if for i5 = i4 + 1 to 70 cl**t = chr(i1) & chr(i2) & chr(i3) & chr(i4) & chr(i5) if checkl**t(cl**t) = 1 then print cl**t end if next next next next nextend subfunction checkl**t(byref cl**t as string) as integer dim na as integer, nb as integer, nc as integer, nd as integer, ne as integer, nf as integer if instr(cl**t, "a") > 0 then na = 1 if instr(cl**t, "b") > 0 then nb = 1 if instr(cl**t, "c") > 0 then nc = 1 if instr(cl**t, "d") > 0 then nd = 1 if instr(cl**t, "e") > 0 then ne = 1 if instr(cl**t, "f") > 0 then nf = 1 dim t1 as integer, t2 as integer, t3 as integer, t4 as integer, t5 as integer, t6 as integer 'a,b 至少去1人 if na + nb > 0 then t1 = 1 'a,d 不能一起 if not (na + nd = 2) then t2 = 1 'a,e,f 去2人 if na + ne + nf = 2 then t3 = 1 'b,c 都去或都不去 if not (nb + nc = 1) then t4 = 1 'c,d 只去1人 if nc + nd = 1 then t5 = 1 'd不去，e不去 if not (nd = 0 and ne = 1) then t6 = 1 checkl**t = t1 and t2 and t3 and t4 and t5 and t6end function结果：abcf 20210311

汇率兑换计算器

兑换金额：

持有货币：

兑换货币：

兑换结果：

类似问答

有人试过编写个程序来炒股吗？
- 2024-05-17 03:40:37
- 提问者: 未知
在通达信软件上，最早是期货交易实现电脑买卖，只是免费的速度太慢！文华财经软件要交费，速度非常快。...补充一个，去年年初的最牛的量化基金，你看，下半年不也跌成了狗？...
用vb.net编写一个程序：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值
- 2024-05-17 21:42:41
- 提问者: 未知
建议在取得a、b后，进行数值的合法性检验。显然必须满足：a、b都是自然数，ab>0，a>b。如果a、b的值不合适，中止程序或要求重填textbox。
用j**a编写一个银行帐户管理的程序
- 2024-05-17 05:40:08
- 提问者: 未知
string password){/覆盖了父类的 withdrawal方法 if(th**.passowrd=password){ if(th**.money=-5000|th**.money>-5000){ system.out.print("**严重透支，不可以再取！...
vb串口通信程序实例
- 2024-05-17 00:16:45
- 提问者: 未知
我也是自己摸索开发出来的每一款vbtocom通讯，有具体的思路如下：给你推荐一个工具“com串口测试工具 comtone v1.0 中文绿色版” 1、打开你的噪音计的测试软件，调整好串口号、通讯频率等等，我用温度计举例说明。开始查询后有返回数值，这个receive：就是返回的数值000304012200004b05, ...
delphi怎样编写服务程序
- 2024-05-17 13:22:24
- 提问者: 未知
菜单 file --> new --> others --> service会创建一个服务程序模板，在此基础上实现你要的功能即可
qt编写的程序如何发布
- 2024-05-17 14:08:27
- 提问者: 未知
1首先打开想要发布的程序所在的项目。2然后将右下角的debug换成release，debug版本的程序非常大，因为有很多调试的信息。3接着，按ctrl+r运行一遍，确保自己的程序没有问题，然后到程序的输出文件夹中。一般在项目目录的上一层目录的一个build文件夹中。4然后找到release文件夹，选择生成的exe文件，放到一个空白目录中。5仅仅一个exe是不能发布的，除非其它的电脑上也安装了qt，...
vb编写个求平方的
- 2024-05-17 23:03:12
- 提问者: 未知
界面上搞二个输入框输入框一名称为 sru1(这个是用户输入要计算的数字)输入框二名称为 jieg(这个是显示数字结果的)再画一个按钮名字为计算双击进入代码编辑写上以下代码：jieg.text = sru1.text*sru1.text编译输出！
vb编程美元兑换人民币代码
- 2024-05-17 01:21:31
- 提问者: 未知
private sub command1_click()dim m as single,r as single,h as singlem=val(text1.text) '美元数量h=8.099 '汇率r=m*h '换算label1.caption=format (r, "#.##") '显示兑换的人民币数量end sub
编写程序,计算fibonacci数列的前50项
- 2024-05-17 20:24:55
- 提问者: 未知
#include <stdio.h> main() {double fib[51],n,m,k; fib[0]=0;fib[1]=1;scanf("%lf",&n); while(1){if(n==0){printf("0\n");}if(n==1){printf("1\n");}for(int i=2;i<=50;i+...
vb检验程序设计怎么整求解
- 2024-05-17 20:32:10
- 提问者: 未知
经由过程一站式的音乐办事，酷我音乐盒成为最受欢迎的音乐播放软件之一，但若何经由过程音乐赚钱倒是一个大年夜困难。 2002年8月，百度首席架构师雷鸣分开了这家创建不到3年的搜刮引擎公司，选择去斯坦福大年夜学读mba。此刻来看这真是一个不成思议的决定，但那时百度仅仅是一个不到百人的小公司，并且雷鸣一向很想本身创业。雷鸣把百度的工作经历看作“取经”，以后去斯坦福则是为了进修办理经验。在斯坦福肄业期间，...

用vb编写程序。

房贷计算器-九子财经 | 备案号： 桂ICP备19010581号-1 商务联系 企鹅：2790-680461

房贷计算器-九子财经 | 备案号：桂ICP备19010581号-1 商务联系企鹅：2790-680461