编程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