温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
一个具有十足耐力和不屈不挠精神的人,
一个有高度责任感以及惊人持久力的人。
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(11267)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_083',
blogTitle:'vb期末测试作业',
blogAbstract:'&&&
“Visual Basic编程与应用”期末复习资料
第一章Visual Basic 6.0程序设计概述
重点掌握的内容：
对象与事件驱动
对象：世界上存在的任何具体的事物都可以称之为对象。对象是具体存在的，每个对象都是唯一的，有着自己独特的个性。
类：是具有相同性质的对象的集合。
对象和类的区别在于前者是具体的，而后者则是抽象的。
属性、方法和事件：VB采用一种所谓的事件驱动的编程机制，由用户来掌握程序的运行流向。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。对象的属性的设置可以通过两种方法来实现：
（1）通过属性窗口直接设置；
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:4,
publishTime:3,
permalink:'blog/static/',
commentCount:3,
mainCommentCount:1,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'一个具有十足耐力和不屈不挠精神的人,\r\n一个有高度责任感以及惊人持久力的人。',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}20:24 提问
vb程序输出10个数的最大数 并指出位子
按赞数排序
是抄来的，还是自己写的，A数组做什么用？B数组又做什么用？循环要做什么？然后再讨论对不对！
请问对不对呀 ！
今天得空顺手写个C#的
string a = "", d = "0"; int b = a.Length, c = 0, e = 0;
e = int.Parse(d) & int.Parse(a[--b].ToString()) && int.Parse(a[c].ToString()) & int.Parse(a[b].ToString()) ? b : int.Parse(d) & int.Parse(a[c].ToString()) ? c :
d = int.Parse(d) & int.Parse(a[b].ToString()) && int.Parse(a[c].ToString()) & int.Parse(a[b].ToString()) ? a[b].ToString() : int.Parse(d) & int.Parse(a[c].ToString()) ? a[c].ToString() :
} while (b &= ++c);
Console.WriteLine("最大位置：{0}", e);
Console.WriteLine("最大值：{0}", d);
输入部分就不写了，这里只讲解比较原理：取数组下标转换数值进行比较运算，获得循环最大值和下标。
其中三目运算用2个条件比较2个数组中的值存储在临时变量中，临时变量也参与比较，并且使用折半方法。
虽然所用语言不同但逻辑是一样的。
第一次写VB三目嵌套：
'Dim a() As Integer = {3, 6, 9, 8, 5, 2, 1, 4, 7}
Dim a = "".Select(Function(b) Integer.Parse(b)).ToArray
Dim wei As Integer = a.Length, tou = 0, xu = 0
xu = IIf(a(xu) & a(wei) And a(tou) & a(wei), wei, IIf(a(xu) & a(tou), tou, xu))
Loop While (wei &= tou)
Console.WriteLine("位置" + xu.ToString + " 数值" + a(xu).ToString)
准确详细的回答，更有利于被提问者采纳，从而获得C币。复制、灌水、广告等回答会被删除，是时候展现真正的技术了！
其他相关推荐VB复习资料有答案doc下载_爱问共享资料
VB复习资料有答案.doc
VB复习资料有答案.doc
VB复习资料有答案.doc
简介：本文档为《VB复习资料有答案doc》，可适用于综合领域，主题内容包含VB复习资料有答案一、填空题、一个工程可以包括多种类型的文件,其中,扩展名为frm的文件表示【窗体】文件、复选框【Value】属性设置为Grayed符等。
侵权或盗版
*若权利人发现爱问平台上用户上传内容侵犯了其作品的信息网络传播权等合法权益时，请按照平台要求书面通知爱问！
赌博犯罪类
在此可输入您对该资料的评论~
添加成功至
资料评价：VB编写程序，生成一个10个元素的随机整数组，数组元素的范围0-100，要求将这个数组的最大值和最小值的位置_百度知道
VB编写程序，生成一个10个元素的随机整数组，数组元素的范围0-100，要求将这个数组的最大值和最小值的位置
VB编写程序，生成一个10个元素的随机整数组，数组元素的范围0-100，要求将这个数组的最大值和最小值的位置对调
我有更好的答案
integerdim
integerdim
integerdim
integerfor
10a(i)=int(rnd()*101)next ik=-1p=101for
m=iendifif
n=iendifnext ik=a(m)a(m)=a(n)a(n)=k
采纳率：18%
dim a(10)as long,i as long ,j as long,amax as long,amin as long,tempv as longrandomizefor i=1 to 10a(i)=int(rnd()*100)next i
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}