在一个窗体上用两个控件如何excel怎么计算平均值值和最大值

来源：蜘蛛抓取(WebSpider) 时间：2015-07-09 02:36 标签： word计算平均值
VB实验报告(含答案)_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB实验报告(含答案)
上传于||文档简介
&&v​b​答​题
阅读已结束，如果下载本文需要使用
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩15页未读，继续阅读
你可能喜欢VB程序设计中，有10个分数，怎样输入一个除去最大值、最小值，求平均值的程序？急！_百度知道
VB程序设计中，有10个分数，怎样输入一个除去最大值、最小值，求平均值的程序？急！
十个text1，里边是输入分数的、一个最小值后的平均分数，在command里怎么设计这个程序，还有一个text2里要输入除去一个最大值
提问者采纳
Text): a(1) = Val(Text1(1).Text); a(9) Then min = a(9)If a(0) &&quot: a(4) = Val(Text1(4).Text); a(7) Then max = a(7)If max &Text1(5);&Text1(8);Text1(3).Text = && a(3) Then min = a(3)If min &gt: a(9) = Val(Text1(9).Text = &quot: Dim a(9) As I&Text1(3);&quot，代码如下：Option Explicit: a(6) = Val(Text1(6);Text1(6).Text = && 8Text2;Text1(4), s As DText1(9);& a(6) Then min = a(6)If min &gt, max As I&quot: a(5) = Val(Text1(5).Text = &quot.Text = &quot, min As IntegerPrivate Sub Command1_Click()a(0) = Val(Text1(0); a(2) Then max = a(2)If max &退出&quot.Text).Text = &quot.Text = &quot.Text = & a(4) Then max = a(4)If max &&Text1(1);Text2;Text1(5);Command3;&Text1(7).Caption = &Text1(9).Text = &&quot: a(7) = Val(Text1(7).Text)，这样我们就创建了一个textbox控件数组; a(9) Then max = a(9)s = (a(0) + a(1) + a(2) + a(3) + a(4) + a(5) + a(6) + a(7) + a(8) + a(9) - max - min) /Text1(7).Text)If a(0) &lt.Text = & a(7) Then min = a(7)If min &&Text1(6);Command1.Caption = &Text1(1).Text);Text1(2).Text); a(3) Then max = a(3)If max &lt.Text = &quot.Text = &quot: a(3) = Val(Text1(3);&quot.Text); a(8) Then min = a(8)If min &清空&& a(1) Then max = a(0) Else max = a(1)If max &lt.Text = && a(8) Then max = a(8)If max &lt.Caption = &&quot.Text = &quot.Text); a(6) Then max = a(6)If max &lt，用复制粘贴的办法再添加9个成员再在窗体上放3个按纽控件.Text = & a(1) Then min = a(0) Else min = a(1)If min &&Text1(8);&quot.Text = &&quot.Text = &&&quot,在界面将text1的index属性值设为0;Text1(2);End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1(0); a(4) Then min = a(4)If min & a(5) Then min = a(5)If min &gt: a(8) = Val(Text1(8).Text = sEnd SubPrivate Sub Command2_Click()Text1(0).Text = &&计算平均分数&Command2.Text = &Text1(4); a(2) Then min = a(2)If min &gt: a(2) = Val(Text1(2).Text = &quot.Text = &quot.Text = & a(5) Then max = a(5)If max &lt先在窗体上放一个text1;Text2
其他类似问题
为您推荐：
其他1条回答
x = a(i).然后去掉两个后求各.Text = maxa求最大值.: a(i) = a(j); maxa Then
maxa = a(i)
End IfNext iText2.Text = Text1;&quot.;
&quot.For i = 1 To 9
For j = i + 1 To 10
If a(i) &lt.Text & a(i) & &quot先排序定义十个数的数组Dim a(10) As Integermaxa = a(1)For i = 1 To 10
If a(i) &gt.;For i = 1 To 10
Text1: a(j) = x
Next jNext iText1 = &Next i求最小一样,求平均就行了
vb程序设计的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
2013年3月上机题题库题干及答案解析(2)
下载积分：1000
内容提示：2013年3月上机题题库题干及答案解析(2)
文档格式：DOC|
浏览次数：56|
上传日期： 03:26:43|
文档星级：
该用户还上传了这些文档
2013年3月上机题题库题干及答案解析(2)
官方公共微信以下试题来自：
问答题在考生文件夹下有一个数据库文件“samp3.mdb”，已建立了两个关联表对象(“档案表”和“工资表”)和一个查询对象“qT”，请按以下要求，完成报表的各种操作。在“eSalary”报表的主体节区上添加两个计算控件：名为“sSalary”的控件用于计算输出实发工资，名为“ySalary”的控件用于计算输出应发工资。
计算公式为：
应发工资：基本工资+津贴+补贴
实发工资：基本工资+津贴+补贴-住房基金-失业保险 参考答案[微步骤]
步骤1：单击工具箱中“文本框”控件，单击报表主体节区的适当位置，会同时弹出两个文本框：“Text”和“未绑定”...
为您推荐的考试题库
你可能感兴趣的试题
1.问答题 参考答案[微步骤]
步骤1：执行菜单栏中的“视图→数据表视图”命令。
步骤2：选中学号为“000003”的数据行，用鼠标右击该行...2.问答题 参考答案[微步骤]
步骤1：选择“查询”对象，再单击“新建”按钮，选择“设计视图”，单击“确定”按钮。在“显示表”对话框双击“...3.问答题 参考答案[微步骤]
步骤1：执行菜单栏中的“视图→排序与分组”命令，在“字段/表达式”下拉列表选项中单击“职称”，在“组页眉”...4.问答题 参考答案[微步骤]
步骤1：全部选中“照片”字段行。
步骤2：用鼠标右击“照片”，选择“删除行”命令。
步骤3：单击“保...5.问答题 参考答案[微步骤]
步骤1：选择“查询”对象，再单击“新建”按钮，选择“设计视图”，单击“确定”按钮。在“显示表”对话框中双击...
热门相关试卷
最新相关试卷以下试题来自：
问答题在考生文件夹下存在一个数据库文件samp2.mdb，里面已经设计好两个表对象tStud和tScore。试按以下要求完成设计。创建一个查询，计算并显示“学号”和“平均成绩”两个字段内容，其中平均成绩是计算数学、计算机和英语3门课成绩的平均值，所建查询命名为qT3。
[注意] 不允许修改表对象tStud和tScore的结构及记录数据的值；选择查询值返回已选课学生的相关信息。 参考答案双击“在设计视图中创建查询”，打开查询设计器，添加tScore表，双击“学号”字段添加到下方的“字段”行中，在“字段”行的第二...
为您推荐的考试题库
你可能感兴趣的试题
1.问答题 参考答案单击选中tStud表，单击“设计”按钮，打开表的设计视图。光标定位在“身份ID”行中，单击工具栏中的<img src="http://img....2.问答题 参考答案在报表设计视图的任意节区单击鼠标右键，在右键菜单中选择“排序与分组”命令，打开“排序与分组”对话框，如图5-13所示。将“书...3.问答题 参考答案双击“在设计视图中创建查询”，打开查询设计器，添加tStud表和tScore表，双击“姓名”、“性别”和“数学”字段添加到设计器下...4.问答题 参考答案单击选中txtMoney文本框，打开属性对话框，单击“数据”标签，在“控件来源”行中输入“=[数量]*[单价]”，如图5-12所示。保存报...5.问答题 参考答案单击选中“学生基本情况”表，单击鼠标右键，在右键菜单中选择“重命名”命令，将表名改为tStud。
热门相关试卷
最新相关试卷

我要回帖

更多关于 word计算平均值 的文章

 

随机推荐