用vb写出程序代码。求大神们帮帮忙

Private Sub Command1_Click()

  Dim a(1 To 10) As Integer, intMax As Integer, intMin As Integer

  Dim IDMax As Integer, IDMin As Integer

  intMax = -32768

  intMin = 32767

  Print "原数组:"

  For i = LBound(a) To UBound(a)

    a(i) = InputBox("请输入第" & i & "个整数:(共10个)", "输入框", "100")

    If a(i) > intMax Then intMax = a(i): IDMax = i

    If a(i) < intMin Then intMin = a(i): IDMin = i

    Print a(i);

  Next i

  Print

  Print "Max=a(" & IDMax & ")="; intMax

  Print "Min=a(" & IDMin & ")="; intMin

  a(IDMax) = intMin

  a(IDMin) = intMax

  Print "交换最大值与最小值位置后的数组:"

  For i = LBound(a) To UBound(a)

    Print a(i);

  Next i

  Print

End Sub

敲代码很好学。

在面向对象的程序设计中，我们把外界的刺激用事件来表示，而把对这个事件的反应称为事件过程。

可视化和事件驱动正是使用VB进行Windows程序设计的精髓所在。事件驱动，即事件发生时，程序才会运行，在没有事件时，整个程序处于停滞状态。事件决定了对象之间的联系。在VB中，事件就是能够被对象识别的动作，如用鼠标单击或双击，键盘输入、鼠标的移动、窗体的载入，还有定时器产生的定时信号。

VB的每个窗体和控件都有一个预定义的事件集，它们能够自动识别属于事件集中的事件，大多数类型的事件是各种控件所共有的，例如命令按钮和窗体都可以对单击、双击和按键这样的事件做出响应，而某些事件只能发生在特定的对象上。 相同的事件发生在不同的对象上得到的反应是不一样的，造成这种差异是事件过程的缘故，对象对每一个可以识别的事件都有一个事件过程，当事件发生时，会自动执行这个事件的过程。语法如下：

Private Sub 对象名_事件()

处理事件的程序代码

End Sub

在VB程序设计过程中，基本的思想就是改变对象的属性，使用对象的方法和为对象的事件编写事件过程。除非有必要，用户不必为所有的事件编写事件过程，Windows系统会以默认的方式来处理事件。使用VB编写程序的妙处在于：只有当用户要以某种特定方式来响应某个事件时，才有必要针对某个事件的事件过程。

事件驱动程序中典型的事件序列：

启动应用程序，装载并显示窗体，产生Load和Show事件。

窗体或窗体上的控件接收事件。事件可以由用户引发、由系统引发，也可以由代码间接引发。

如果在相应的事件过程中存在代码，则执行代码。

应用程序等待下一次事件。

应用程序中使用一个窗体时，程序开始运行时窗体接收到了Load消息，从而引发了窗体的Load事件，在这个默认的事件过程中，什么语句都没有，这个过程只是调用就结束了，而VB则执行了一个重要的默认操作——把窗体装入内存。

许多事件的发生常常会伴随其它事件发生：双击事件发生时，按下鼠标键、复原鼠标键和单击事件也会发生。

希望我能帮助你解疑释惑。

'新建一个窗体，上面插入label标签，并插入两个check复选框

Private Sub Check1_Click()

If Check1Value = 1 Then Label1FontBold = True Else Label1FontBold = False

End Sub

Private Sub Check2_Click()

If Check2Value = 1 Then Label1FontItalic = True Else Label1FontItalic = False

End Sub

第一计！美人计！话说，美人指的不一定是女人，男人也是人啊，美丽的事物总是让人爱不释手的，一个优秀的男人（至少，表现的优秀一些）是会让大部分正常的女人发狂的

第二计！瞒天过海（此招为一男多女）泡妞的终极高手是如鱼得水，谁见过一条鱼喝一口水的！？整个大海都是咱的！

第三计！隔岸观火！（此招用以挖墙脚）一般来说，某男爱上某女，偏偏，某女名花有主，此时，某男如何自处？首先，就要学会这招隔岸观火，泰山崩于前而色不惊！说的是，看见某女和某女的男朋友亲亲爱爱时，要沉着，冷静！

第四计！狐假虎威！想尽办法套得某女关系，然后大摇大摆在其男友面前晃来晃去，给对手以压力，使其自乱阵脚，目的达到一半

第五计！一探虚实！我们要先制造追求某女的假象，以探听某女极其男友的底细，研究部署下一步

第六计！抛砖引玉，装作情场失意，考场也失意，商场更失意，总之，忧郁缠身，博取同情，得到与某女交流感情使其男友暗中或明中不爽，分化彼此

第七计，趁虚而入，要毫无心机，毫无目的，毫无防备，毫无勇气的，小心翼翼，呵护有加，充分展示第一计中美男形象

第八计，釜底抽薪，之前七计已经造成间隙，这一计彻底打击某男友，使其不攻自破！

第九计，直捣黄龙，在一个风也萧萧雨也萧萧风雨都萧萧，你也萧萧我也萧萧大家都萧萧的不眠之夜里，鼓起你的勇气吧！拿出真心吧！爆发你的力量吧！展现你的风采吧！用你的嘴巴狠狠的（别想歪了）告诉她！我爱你！！！

第十计！功成身退，记住，某女只是大海里的一滴水，千万不要因为这滴水放弃了整篇海洋，记住，某女只是原始森林里的一棵歪脖树，千万别想不开啊！

如此十计，乃上乘兵法，传女不传男~~

孙子算什么，战场有三十六计，情场他算老几，天涯何处见月明，女生看你喊救命！

VB可视化编程的方法与步骤

1、新建一个工程

2、添加控件

3、设置属性

4、编写代码

5、运行工程

6、修改工程

VisualBasic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。

窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。

VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。

VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。

VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。

VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。