可视化程序设计（VB）第三次作业一1.顺序2.随机3.二进制1.消息框2.输入对话框3.Msgbox4.Inputbox1.基本数据类型2.自户自定义数据类型1.内部控件2.ActiveX控件3.可插入控件1-FixedSingle1.ToolBar2.ImageListVariant1.编译错误2.运行时错误3.逻辑错误1.ASCII2.下档3.ASCII1.循环体2.循环条件3.结束循环条件二150-100200-300-100200-300执行结果为10303020301.swapa,b或Callswap(a,b)2.t=a:a=b:b=t三1打开文件。2使用相关语句对打开文件进行读写操作。3关闭文件。在VB坐标系中逆时针方向为正各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。PrintFormat(x,”0.0”)显示1位小数位PrintFormat(x,”0.00”)显示2位小数位PrintFormat(x,”0.000”)显示3位小数位使用Pset绘制像素点的大小由当前容器的DrawWidth属性确定。四Dima(1To20)AsInteger''''在"通用"的"声明"段中输入DimPrivateSubCommand1_Click()DimiAsInteger,tAsIntegerFori=1To20''''输入20个元素的a(i)=InputBox("输入a("&Format(i,"#")&"):")''''输入NextiPrint"互换前各元素的值"Fori=1To20''''输出互换前各元素的值Form1.Printa(i);NextiPrintFori=1To10''''互换操作t=a(i):a(i)=a(20-i+l):a(20-i+1)=t''''交换NextiPrintPrint"互换后各元素的值"Fori=1To20''''输出互换后各元素的值Form1.Printa(i);NextiEndSub