Question

vb计算函数平均数

从键盘上任意输入10个数，计算正数的平均值。通过inputbox函数输入任意10个数据放到数组中，统计其中大于0的数据，并计算这些数据的平均值

Answer 1

输入函数

private sub command1_click()

dim a(10) as integer,i,avg as integer

for i=1 to 10

a(i) = val(inputbox("请输入第" & i & "个数"))

if a(i)>0 then avg=avg+a(i)

next

print "平均值="; avg/10

end sub

扩展资料

对象与类

对象（Object）

Visual Basic.NET 具有“面向对象”的特性，Visual Basic.NET 应用种程序的基本单元是对象，用 Visual Basic.NET 编程就是用“对象”组装程序。这种“面向对象”的编程方法与传统的全部用代码编制程序的方法有很大区别，就像用集成电路芯片组装电视机和用三极管，二极管组装电视机的区别一样。显然，“面向对象”的编程方法比传统的编程方法更简单，更方便，并且编写出的程序也更加稳定。因此，“对象”可以被看做 Visual Basic.NET 程序设计的核心。

在 Visual Basic.NET程序设计中，对象中还可以包含头，手，腿，脚等部位，其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中，整个应用程序就是一个对象，应用程序中又包含着窗体（Form），命令按钮（Command），菜单（Menu）等对象。

类（Class）

在 Visual Basic.NET中，对象是由类创建的，因此对象可以说是类的具体实例，这就好比是蛋糕和做蛋糕的模具之间的关系。

各种不同的对象分属于各种不同的种类。同一类对象可能具有一些不同的特征（或是说同一类对象不一定具有完全相同的特性）；具有某些相同的特性的对象，不一定是同一类对象。

参考资料来源：百度百科-Visual Basic

Answer 2

private sub command1_click()
dim a(10) as integer,i,avg as integer
for i=1 to 10
a(i) = val(inputbox("请输入第" & i & "个数"))
if a(i)>0 then avg=avg+a(i)
next
print "平均值="; avg/10
end sub

Answer 3

病情分析：
宫颈糜烂是慢性宫颈炎的一种表现形式。当宫颈外口表皮脱落，被宫颈口另外一种上皮组织所代替后，由于覆盖面的新生上皮很薄，甚至能看到下方的血管和红色的组织，看上去就像真正的糜烂，所以才称之为宫颈糜烂。
指导意见：
您好，宫颈糜烂的主要表现是白带过多，发黄，确诊需医生检查。 宫颈糜烂可用药物或物理方法来治疗。药物可使用爱宝疗局部敷（最好由医院进行）或自行上阴道栓剂，药物治疗主要适于未孕的轻到中度的宫颈糜烂患者，但药物治疗一般疗程较长，花费也较多。物理治疗可选择激光、冷冻、微波等治疗，主要选择激光治疗，一般一至二次治疗后均会好转。

病情分析：
宫颈糜烂的治疗，你最好选择药物治疗解决。不建议物理治疗，容易影响将来的生育能力。
指导意见：
轻度以及中度宫颈糜烂的药物治疗可以选择从月经期结束（阴道流血彻底干净）开始，用“洁尔阴”等妇科洗剂冲洗阴道，冲洗完毕以后选择药物栓剂塞入阴道，药物选择比如“治糜灵栓”（通化金马生产）或者“消糜栓”（吉林修正生产）质量都不错。连续治疗两个月经周期以后复查，治疗期间禁止同房。

病情分析：
你好，患宫颈糜烂后，会出现白带增多、粘稠，偶尔也可能出现脓性、血性白带，腰酸、腹痛及下腹部重坠感也常常伴随而来，性生活时也可能会引起接触性出血，异味的出现也是极有可能的。
指导意见：
盲目用药效果不理想，建议就诊检查白带，阴道镜检查看看，明确病因，对症治疗。

病情分析：
你好， 你现在是宫颈糜烂轻度， 用药物是可以治愈的。
指导意见：
根据你的叙述， 建议你用洁尔阴外阴和阴道清洗， 清洗后用消糜栓阴道上药，口服严迪片 ， 甲硝唑片注意保持局部清洁 干燥就可以了。

病情分析：
你好；宫颈糜烂是指宫颈状上皮脱落露出皮下组织，或有宫颈状上皮向外生长覆盖代替了原来的鳞状上皮之炎症反应
指导意见：
你好，治疗宫颈糜烂的药物，一.各种栓剂比如康妇特栓剂,修正牌消糜栓，该药对治疗宫颈糜烂轻度有很好的效果.　二.10~30％硝酸银溶液或10％碘酒,　你也可以试试,.另外给你推荐一个宫颈糜烂的外洗中药方：取刘寄奴60克,败酱草30克,山慈菇30克,白花蛇百草100克,黄柏30克,苦参30克,金银花30克,蒲公英60克水煎汤取1000毫升,待药汤温度降至20℃-25℃时,作冲洗用.令患者仰卧,曲腿,用扩阴器扩开阴道,将药汤用胶皮管冲洗宫颈.每天1次.治疗期间忌房事

病情分析：
发现糜烂需要做的检查时TCT，看看结果是什么才能开始治疗
指导意见：
一般如果只是炎症的话，用保妇康栓的效果是不错的

病情分析：
你好 对于轻度宫颈糜烂可以药物保守治疗啊
指导意见：
轻度宫颈糜烂可以消糜栓或者爱宝疗保守治疗，注意定期复查，治疗期间禁止性生活