用vb编写程序

Magic-Q 2024-05-30 02:17:05

最佳回答

因为涉及窗体布局问题，直接叙述不方便，所以直接给你frm文件。把下面的代码保存为后缀名为.frm的文件，再用vb打开。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝version 5.00begin vb.form form1 caption = "form1" clientheight = 3195 clientleft = 60 clienttop = 345 clientwidth = 4680 linktopic = "form1" scaleheight = 3195 scalewidth = 4680 startupposition = 3 '窗口缺省 begin vb.commandbutton command3 caption = "素数" height = 375 left = 2400 tabindex = 5 top = 600 width = 975 end begin vb.hscrollbar hscroll1 height = 375 left = 360 max = 10000 tabindex = 3 top = 1920 width = 3615 end begin vb.commandbutton command2 caption = "结束" height = 615 left = 960 tabindex = 2 top = 1080 width = 855 end begin vb.textbox text1 height = 375 left = 2760 locked = -1 'true tabindex = 1 text = "text1" top = 1440 width = 975 end begin vb.commandbutton command1 caption = "总计" height = 615 left = 3000 tabindex = 0 top = 2400 width = 1335 end begin vb.label label1 caption = "label1" height = 375 left = 720 tabindex = 4 top = 600 width = 1335 endendattribute vb_name = "form1"attribute vb_globalnamespace = falseattribute vb_creatable = falseattribute vb_predeclaredid = trueattribute vb_exposed = falseoption explicitfunction **prime(byval n as long) as booleandim i as longfor i = 2 to int(n / 2) if n mod i = 0 then **prime = false: exit functionnext**prime = trueend functionsub sum(x as integer)dim i as integer, s as longfor i = 1 to xs = s + inexttext1.text = send subprivate sub command1_click()sum (hscroll1.value)end subprivate sub command2_click()endend subprivate sub command3_click()dim i as integer, j as integerfor i = 2 to hscroll1.valueif **prime(i) thenprint i,j = j + 1if j mod 5 = 0 then printend ifnextend subprivate sub hscroll1_change()label1.caption = hscroll1.valueend sub 20210311

汇率兑换计算器

兑换金额：

持有货币：

兑换货币：

兑换结果：

类似问答

vb程序中flag=true/false的意思和作用是什么
- 2024-05-30 02:41:21
- 提问者: 未知
flag一般指标志，布尔型2113变量，只有true（真5261），false（假）两个4102值1653，主要是做判断用的。比如定义一个值a为布尔型，让a=1。判断a，如果为1就是真，输出true；不为1是假，输出false。扩展资料： vb中的true和false代表一种逻辑属性，代表的数据类型为bool(布尔型），true表示...
求vb编写的邮政编码查询系统
- 2024-05-30 14:57:44
- 提问者: 未知
vb写邮编查询系统超简单啊，连数据库都可以不用，一个文本文件就够了。先准备一个文本文件 postcode.txt 内容如下100084,北京,海淀区,清华大学100086,北京,海淀区,学院路010010,**呼和浩特市,新城区,**……vb代码如下private sub from_load() form1.show:form1.autoredraw = true dim pc as stri...
用vb.net编写一个程序：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值
- 2024-05-30 18:32:27
- 提问者: 未知
建议在取得a、b后，进行数值的合法性检验。显然必须满足：a、b都是自然数，ab>0，a>b。如果a、b的值不合适，中止程序或要求重填textbox。
vb：编程计算三角形面积
- 2024-05-30 08:27:08
- 提问者: 未知
代码如2113下： dim a!b!c!s!p!a=inputbox("请输5261入第一条边长4102") b=inputbox("请输入第二条边长") c=inputbox("请输入第三条边长") if a+b print"这样的三角形不存在 else p=(a+b+c)/2 s=sqr(p*(p-a)*(p-b)*(p-c)) print"这个三角形的1653面积是;s end if 扩展资...
怎么用python编写程序表达式求和
- 2024-05-30 23:50:09
- 提问者: 未知
12345678910111213141516171819202122#!usr/bin/python#-*-coding:utf-8-*-#file:sum_number.py"""求和"""def sumner(n):if **instance(n,int):m=n+1 sum_num=0 for i in range(1,m):sum_num+1.0/(i*(i+1))*(pow(-1,i)...
vb：编程计算三角形面积
- 2024-05-30 02:04:09
- 提问者: 未知
s end if 扩展资料：注释方式在vb中，注释有2种方式。1.以rem**开头，并且rem关键...属性（property）属性是指用于描述对象的名称、位置、颜色、字体等特征的一些指标。...
vb编写一个过程
- 2024-05-30 00:48:25
- 提问者: 未知
private sub button7_click(byval sender as system.object,byval e as system.eventargs)handles button7.click dim str as string=" str=inputbox("请输入要反转的数字") dim pl as string=strreverse(str) textbox6.text=v...
vb编写个求平方的
- 2024-05-30 04:22:09
- 提问者: 未知
界面上搞二个输入框输入框一名称为 sru1(这个是用户输入要计算的数字)输入框二名称为 jieg(这个是显示数字结果的)再画一个按钮名字为计算双击进入代码编辑写上以下代码：jieg.text = sru1.text*sru1.text编译输出！
编写一个花样彩灯亮的程序，亮的方式7种以上；编一个花样数码管亮的程序，都用c语言编写（交作业用的）
- 2024-05-30 03:47:04
- 提问者: 未知
1、/代表的是除法。如果 a 和 b 都是整数，不是 float 等这种浮点数，所以结果只保留整数，所以 a/b 算出来是整数。2、另外，%代表的是取余数，即：5%3 等于 1 余 2，结果就是 2
vb编程美元兑换人民币代码
- 2024-05-30 22:24:28
- 提问者: 未知
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

用vb编写程序

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

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