求大侠解析：private Sub Command3_dblclickk()

来源：蜘蛛抓取(WebSpider) 时间：2012-06-15 13:51 标签： dblclick
> 问题详情
阅读程序：Private Sub Command1_Click（ ）Dim arrDim i As Integerarr=Array(0，1，2，3，4，5，6，7，8，
悬赏：0&答案豆
提问人：匿名网友
发布时间：
阅读程序：Private Sub Command1_Click（ ）Dim arrDim i As Integerarr=Array(0，1，2，3，4，5，6，7，8，9，10)For i=0 To 2Print arr(7-i)；NextEnd Sub程序运行后，窗体上显示的是（ ）。A.8 7 6B.7 6 5C.6 5 4D.5 4 3请帮忙给出正确答案和分析，谢谢！
网友回答（共1条）
匿名网友&&&&lv1&&&&提问收益：0.00&答案豆
我有更好的答案
您可能感兴趣的试题
1下面程序计算并输出的是（　　）。Private Sub Command1 Click（　　）a=10s=0Dos=s+a*a*aa=a-1Loop&Until a&=0Print&sEnd SubA.13+23+33+…+103的值B.10!+…+3!+2!+1!的值C.(1+2+3+…+10)3的值D.10个103的和2软件设计中划分模块的一个准则是（　　）。A.低内聚低耦合B.高内聚低耦合C.低内聚高耦合D.高内聚高耦合
相关考试课程
请先输入下方的验证码查看最佳答案
图形验证：
验证码提交中……求大侠解析：private Sub Command3_Click()_百度知道
求大侠解析：private Sub Command3_Click()
MsgBox&的累加和为&1到&quot.SetFocus
n=Text1;& n & &quot.Text
Do while i&ltprivate Sub Command3_Click()
Dim i As Integer
Dim sum As Long
Dim n As Intger
我有更好的答案
弹出消息框“1到n（n是具体值）得累加和为sum（循环结束是sum的值）”End Sub望采纳.SetFocus
聚焦text文本框
n=Text1，停止
每循环一次sum+1
Loop MsgBox&的累加和为&1到&quot.Text
将text中的数值赋给n
从i=1循环 步长默认为1
Do while i&& n & &=n
当i=n时private Sub Command3_Click()
Dim i As Integer
Dim sum As Long
Dim n As Intger
其他类似问题
为您推荐：
sub的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁 上传我的文档
 下载
 收藏
所有文档均来自于网络,所搜集文档几乎涵盖了所有行业,均严格按照道客巴巴->文档分类->所有文档->分类。对每篇文档详细释义做出了合理推敲,并对其精确划分了类别。例:食堂采购协议 ->(标题)->所有文档->(法律文献)->(分类)->合同范本。旨在让大家把搜索到的文档对照标题,参照分类。一看便一目了然成竹在胸,放心下载,安心使用。笔者主要搜集了一些常用文档,如论文,工作总结,合同协议,规章制度,报告,方案,课件,试题,试卷,答案,职业资格考试,策划营销.等等一些教育学习,办公写作,商业经营,实用性极强的文档,您若觉得对您日常学习,商业经营,社交沟通,办公写作有所帮助的话就关注我吧
 下载此文档
正在努力加载中...
高中数学必修三总结及经典例题解析(全)
下载积分：1000
内容提示：高中数学必修三总结及经典例题解析(全)
文档格式：DOC|
浏览次数：168|
上传日期： 08:49:24|
文档星级：
该用户还上传了这些文档
高中数学必修三总结及经典例题解析(全)
官方公共微信以下试题来自：
单项选择题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a$=“VisualBasic”
Print String(3，a$)
程序运行后，单击命令按钮，在窗体上显示的内容是（
A．VVVB．VisC．sicD．11
为您推荐的考试题库
你可能感兴趣的试题
1A． 成员函数B． 友元函数C． 构造函数D． 析构函数2A．结合型B．非结合型C．计算型D．非计算型3A． 8 9B． 9 8C． 程序有错误D． 9 94A． ResultSetB． ConnectionC． StatementD． 以上都不是5A．事件过程B．通用过程C．Sub过程D．函数过程
热门相关试卷
最新相关试卷VB题，求大神纠错，我能输出最大值，平均值，总和，就是最小值输出不正确！求大侠帮忙！_百度知道
VB题，求大神纠错，我能输出最大值，平均值，总和，就是最小值输出不正确！求大侠帮忙！
a(j) Then Max = a(i)
If a(j) &NextSum = a(1)For i = 1 To 9Sum = Sum + a(i)For j = i + 1 To 10
If a(i) &gtPrivate Sub Command1_Click()Dim a(10)For i = 1 To 10a(i) = Int(90 * Rnd + 10)Print a(i); a(i) Then Min = a(i)
e = Sum &#47
提问者采纳
总和不对,明显总和中加了两次a(1)而没有加a(10).Private Sub Command1_Click()Dim a(10)Sum = 0For i = 1 To 10a(i) = Int(90 * Rnd + 10)Sum
a(i)Print a(i); a(i) Then
Max = a(i)End IfIf Min &Next ie = Sum / 10 Max =
a(1)For i = 2 To 10If Max &lt你这样求得的总和与平均值也是不对的,平均值当然也就不可能对
提问者评价
真心谢谢！
其他类似问题
为您推荐：
其他4条回答
平均----------------------&quot、最小：Dim a(10)Print &For i = 1 To 10a(i) = Int(90 * Rnd + 10)Print a(i)NextSum = 0Min = a(1)Max = a(1)For i = 1 To 10
Sum = Sum + a(i)Nexte = Sum /----------------统计虽然程序代码少; Min Then Min = a(i)NextPrint &quot，但你的逻辑好混乱; 10 For i = 2 To 10
If a(i) & Max Then Max = a(i)
If a(i) &lt：最大、合计，修改如下;----------------数据----------------------&quot
sum=0for i=1 to 10
sum=sum a(i)
if a(i)&max then max=a(i)
if a(i)&min then min=a(i)nexte=sum/10
Option ExplicitDim a(1 To 10), i, j, max, min, sum As Integer, e As DoublePrivate Sub Command1_Click()For i = 1 To 10a(i) = Int(90 * Rnd + 10)Print a(i);Nextsum = 0max = a(1)min = a(1)For i = 1 To 10sum = sum + a(i)For j = i + 1 To 10&&&If a(i) & max Then max = a(i)&&&If min & a(i) Then min = a(i)Next jNext ie = sum / 10PrintPrint maxPrint minPrint sumPrint eEnd Sub
Private Sub Command1_Click()Dim a(10)Randomize TimerFor i = 1 To 10a(i) = Int(90 * Rnd + 10)Print a(i);NextSum = a(1) '删除这句'==========Sum = 0Max = a(1)Min = a(1)'==========For i = 1 To 9Sum = Sum + a(i)For j = i + 1 To 10 '删除这句
If a(i) & Max Then Max = a(i) '这句要改改
If a(i) & Min Then Min = a(i) '这句要改改
e = Sum / 10Next j '删除这句Next iPrintPrint MaxPrint MinPrint SumPrint eEnd Sub实际上1楼就是正解
平均值的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 dblclick 的文章

 

随机推荐