编程VB语言代码:在十个数中找出所有两位数,满足其个位,十位三个数字之和为10
Private Sub Command_1Click()
Dim a!,b!c!,w!
a=Val(Text1)
b=Val(Text2)
c=Val(Text3)
If a<b then
w=a
a=b
b=w
End if
If a<c Then
w=a
a=c
c=w
End if
If b<c then
w=b
b=c
c=w
End if
Label4.Caption="从大到小排列为："&Str(a)&Str(b)&Str(c)
End Sub
绝对正确！
在 VB里没有说写代码要有特定的开头,无非是一些初始化用的 如定义选项 Option 定义变量 Dim 定义常数 Const 等. 然后就是写好一些控件的事件子程序,如有需要,再写上一些自定义的函数或子程序.
如果是想学习VB的话,建议先学习一点基础入门的知识吧!
Dim n(1 To 10) As Integer, x As String
Dim i As Integer, strInput As String
For i = 1 To UBound(n)
n(i) = CInt(InputBox(""))
strInput = strInput & vbTab & n(i)
Next i
Print strInput
For i = 1 To UBound(n)
x = CStr(n(i))
If Len(x) = 2 Then
If CInt(Mid(x, 1, 1)) + CInt(Mid(x, 2, 1)) = 10 Then Print x
End If
Next
病情分析：
你好，五岁孩子的标准体重是18.3公斤，标准身高是110.0cm
指导意见：
建议均衡饮食，如果相差太大可以查下体内生长激素是否正常，适宜锻炼身体。
病情分析：
5岁男孩的身高正常值是105.3—114.5cm体重正常值是16.6—21.1kg
指导意见：
5岁男孩的身高正常值是105.3—114.5cm体重正常值是16.6—21.1kg
病情分析：
你好，5岁男孩体重18.3kg，身高110.0cm
指导意见：
在这个范围左右都行的，不是那么固定的，谢谢，希望我的回答对你有帮助。
病情分析：
你好，五岁男孩的身高和体重标准分别是105.3-114.5cm，16.6-21.1kg。具体每个孩子的身高和体重是略有区别的。
指导意见：
五岁男孩的身高和体重标准分别是105.3-114.5cm，16.6-21.1kg。
我想您一定是小孩的家长，担忧孩子的生长问题，其实呢，小孩的身高体重是没有绝对的标准的，只是如果您担忧孩子的发育，其他医生给您的都是比较合理的标准，这里可以给您一个大概的身高公式身高（cm）=(年龄-2)×5+85=（年龄×5）+75，体重呢1岁以上儿童：8+年龄×2=标准体重(kg)不知道，您满意否，如果还是有疑惑，随时联系！
没看懂题目
单击退出程序的VB代码怎么写
1.输入Private Sub Form1 Click（）EndEnd Sub 2.输入Private Sub Command1_Click()3.输入UnloadmeEnd Sub即完成
如何用VB运行过程中动态执行代码?
"=")(0) ObjValue = Split(Split(Text1.Text, ".")(1), "=")(1) '遍历窗体控件，然后运用控件的属性 'VbLet——设置属性 For Each obj In Me.Controls If obj.Name = ObjName Then CallByName obj, ObjProperty, VbLet, ObjValue Exit For End If NextEn...
VB解方程
解一元一次方程：设置4个文本框，分别代表一元一次方程中的参数k,b,x,y 分别命名txtk,txtb,txtx,txty.计算按钮命名为cmdCalc。在代码窗口里粘贴如下代码:Private Sub cmdCalc_Click()Dim k, b As Long k = txtk.Text b = txtb.Text If txtx.Text = "x" Then MsgBox "x的值为:" &...
VB显示当前时间的程序
加入计时器 timer1 和一个textbox 窗体里加入以下代码：Private Sub Form_Load()Text1.Text = NowTimer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Text1.Text = NowEnd Sub 如果你只想显示日期，则把Text1.Text = Now 改为：Text1.Text = date如果你只想...
求vb代码 “求1000以内的所有完数”输出格式为 完数=因子1+因子2+...
采纳率:51% 来自团队:永霸天下 擅长: VB 其他编程语言 编程语言 数据库DB 为您推荐: 1000以内所有完数vb vb 1000以内完数 求完数及其因子 VB扫雷 VB换行 vb怎么判断完数 判断一个数是不是完数 1000以内的所有完数 VB判断实数 完数数组 其他...
商品总额计算程序VB程序设计代码编写。
简单，窗体加3个文本框，2个命令按钮 private sub operation_click()texte3.text=val(text2.text)*(text1.text)end sub private sub clear_click()text1.text=""text2.text=""text3.text=""end sub
vb编程是什么意思,主要干嘛的?
“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言,是一种在计算技术发展历史上应用得最为广泛的语言。 扩展资料: VB的语言特点:...
VB在同一行上可以书写多个语句,语句间用什么分隔
VB在同一行上可以书写多个语句，语句间用冒号（：）分隔。VB的全称是Visual Basic 6.0程序设计语言的缩写，其程序代码一般由关键字、表达式、函数和语句4各部分组成。在具体的代码编写过程中，为了便于开发人员及后续的维护人员阅读，一般需要注意保持代码的层次结构清晰，书写代码的时候应该遵循一些具体规则...
vb程序请教-急求一个VB代码 对时间设置的提醒?
代码复制，单击窗体即可运行 Private Sub Form_Click()w = Weekday(Date)Select Case w Case 1, 7 MsgBox "今天是星期 " & w & " ,可以休息！"Case Else MsgBox "今天是星期 " & w & " ,要上班哦！"End Select End Sub
VB代码 提示无效外部过程
你这些代码应该放入一个事件过程中，比如你希望在点击窗体后就执行你这些代码，则：Private Sub Form_Click()Dim r As Single Dim s As Single r = InputBox("请输入半径")s = 3.14 * (r ^ 2) - 2 * r ^ 2 Print s End Sub 因为VB是事件驱动的编程语言，所有实际执行的代码都应该...
池嘉盐酸： Private Sub Form_click() Dim a%(10), max%, k% For i = 1 To 10 a(i) = Val(InputBox(＂请输入第＂ & i & ＂个正整数＂)) Print a(i); If max < a(i) Then max = a(i): k = i Next Print Print ＂最大值为:＂; max; ＂是第＂; k; ＂个数＂ End Sub
岚山区13444792509： 用VB写一个从10个数中找出最小值的程序(不要用数组) - ？
池嘉盐酸： Private Sub Command1_Click() Dim Min As Integer, I As Integer, T As Integer Min = Val(InputBox(＂请输入:＂)) Print Min; For I = 2 To 10 T = Val(InputBox(＂请输入:＂)) Print T; If T < Min Then Min = T Next Print Print ＂最小:＂ & Min End Sub
岚山区13444792509： vb随机生成10个数并显示在一个文本框中, 并找出最大数,指出它的位置 - ？
池嘉盐酸： 添加一个text1,输入以下代码,然后运行.单击窗体,十个随机数显示在text1中,弹出对话框,提示第几个为最大数,并将最大数选中.Private Sub form_Click() Dim a(1 To 10) As Integer, i As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * ...
岚山区13444792509： vb从键盘上任意输入10个数找出这10个数中最小的那个数要求用数组实现此过程, - ？
池嘉盐酸： Private Sub Form_activate() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Val(InputBox(＂请输入第＂ + Str(i) + ＂个数＂)) Print a(i); Next i Min = a(1) For i = 2 To 10 If Min > a(i) Then Min = a(i) Next i Print ＂最小的数:＂; Min End Sub
岚山区13444792509： VB编程 利用inputbox函数输入10个数,找出最大数 并输出. - ？
池嘉盐酸： For i = 1 To 10 改成 For i = 0 To 9 试一下 汗……有Option Base 1啊……看出来了,是这样子的,因为你在输入之前就定义了Min=s(1)此时,s(1)=0,所以之后只要你输入的正数就不会比0小了,应该将Min定义成一个大数,比如使成绩的话,Min=100这样就不会错了
岚山区13444792509： vb编程 用for循环向一维数组中输入10个数,找出其中的最大值和最小值,并且交换最大值 - ？
池嘉盐酸： 题目不是交代了要用循环,但是你没用啊,没用循环是做不了这件事的.Dim x(1 To 10) As Integer, max As Integer, min As Integer,i As Integer Label1.Caption = ＂＂ For i = 1 To 10 x(i) = Val(InputBox(＂输入第“ & i & ＂个整数＂, ＂输入整数＂...
岚山区13444792509： 麻烦高手们帮我做个VB 编程 初级的 (加急) 题:输入10个数,求出其中正数,负数和零的个数 麻烦写出代码 - ？
池嘉盐酸： 1,个text,4个label dim zheng , fu ,o ,geshu as integer 在form_load里输入 geshu=0 label1.caption=＂已经输入＂ & geshu &＂个数＂ zheng=0 fu=0 o=0 label2.caption=＂正数有＂& zheng label3.caption=＂负数有＂& fu label4.caption=＂零有＂& o ...
岚山区13444792509： 编一个vb 允许输入十个数字 从十个数中求出最大值 然后在窗体显示最大值 麻烦您写一下vb代码 - ？
池嘉盐酸： 怎么刚才看到个一样的...'添加窗体Form1,按钮Command1,然后添加如下代码:Private Sub Command1_Click() Dim a(9), i, temp As Integer For i = 0 To 9 a(i) = Val(InputBox(＂请输入第＂ & i + 1 & ＂个数:＂)) Print a(i); Next temp = a(0) For i = 0 To 9 If a(i) > temp Then temp = a(i) Next Print ＂最大数为:＂ & temp End Sub
岚山区13444792509： vb编程,产生10个随机数,然后求和,求平均数,找出所有大于平均数的数 - ？
池嘉盐酸： Private Sub Command1_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd(i) * 900 + 100) Print a(i); intSum = intSum + a(i) Next i Print intAverage = intSum / 10 Print ＂Sum=＂; intSum, ＂Average=＂; intAverage For i = 1 To 10 If a(i) > intAverage Then Print a(i); Next i Print Print End Sub
