VB程序设计第四版实验题求解

Private Sub Command1_Click()

Dim i As Integer

Dim a As Integer, b As Integer, c As Integer

For i = 100 To 999

a = i \ 100                '求三位数的百位上的数

b = (i - a * 100) \ 10     '求三位数的十位上的数

c = i - a * 100 - b * 10   '求三位数的个位上的数

If a ^ 3 + b ^ 3 + c ^ 3 = i Then   '判断是否为水仙花数

Print i                         '如果是水仙花数则输出.

End If

Next i

End Sub

用三重循环做：

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim s As Integer

For i = 1 To 9

   For j = 0 To 9

      For k = 0 To 9

         s = i * 100 + j * 10 + k

If i ^ 3 + j ^ 3 + k ^ 3 = s Then

            Print s

         End If

      Next k

Next j

Next i

End Sub

第一题：

第二题：

第三题：

第四题：

第五题：

扩展资料

这部分内容主要考察的是程序设计语言的知识点：

开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。

开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。

---