复习题一、选择题
1.若要使得命令按钮不可操作,应把  A    属性设置为False。
A.Enabled B.Visible C.BackColor D.Caption
2.要判断在文本框中是否按了Enter键,应在文本框的    D  事件中判断。
A.Change B.KeyDown C.Click D.KeyPress
3.Int(198.555*100+0.5)/100的值为   C   。
A.198 B.199.6 C.198.56 D.200
4.下面    A  是合法的单精度变量。
A.Num! B.Sum% C.Total&   D.Result#
5.VB也提供了结构化程序设计的三种基本结构,三种基本结构是  A    。
顺序结构、选择结构、循环结构
递归结构、顺序结构、循环结构
过程结构、选择结构、循环结构
选择结构、循环结构、转向结构
二、填空题
1.从作用域的角度来讲,变量分  局部变量      、窗体/模块级和全局变量        变量。
2.表示单选框是否被选中的属性是 value       ;单选框被选中时该属性值为   true     。
3.如果希望每隔1秒钟调用一次Timer事件,则应设置时钟控件的interval        属性值为 1000       。
4.程序中显示快捷菜单所用的方法是   PopupMenu     。
5.容器的实际高度和宽度由   ScaleHeight     和   ScaleWidth     属性确定。
三、编程题
1.编写出如下图所示的温度转换程序转换公式为: 
  ‘摄氏温度转换为华氏温度,F为华氏
  ‘华氏温度转换为摄氏温度,C为摄氏2.编一程序,显示出所有的水仙花数。所谓水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。例如,153是水仙花数,因为153=13+53+33。
3.如下图所示,单击“产生”(Command1)命令按钮,随机产生10个任意的正整数(1~100)显示在Picture1中;单击“计算”(Command2)按钮则在“最大值”(Text1)文本框中显示最大值,在“最小值”(Text2)文本框中显示最小值。
 填空是我选的 不知道对不对,帮小弟看看哈!!  下面三个编程题第一个我做出来了,后两个 麻烦各位了!!!

解决方案 »

  1.   

    2
    先把数字转成字符串,在处理字符串中的每个字符。
    Function CStr(Expression) As String
        VBA.Conversion 的成员
        将一个表达式转换为字符串型
    Function Val(String As String) As Double
        VBA.Conversion 的成员
        返回在一个字符串中包含的数值3
    Sub Randomize([Number])
        VBA.Math 的成员
        初始化一个随机数生成器
    Function Rnd([Number]) As Single
        VBA.Math 的成员
        返回一个随机数
      

  2.   

    2.
    Private Sub Form_Load()
    Show
    Dim i As Integer, j As Integer, m As Integer
    For i = 1 To 9
        For j = 0 To 9
            For m = 0 To 9
                If i ^ 3 + j ^ 3 + m ^ 3 = i * 100 + j * 10 + m Then
                    Print CStr(i * 100 + j * 10 + m)
                End If
                DoEvents
            Next m
        Next j
    Next i
    End Sub
      

  3.   

    quote: If i ^ 3 + j ^ 3 + m ^ 3 = i * 100 + j * 10 + m 
    什么意思?
      

  4.   

    回复人: ayalicer(小刀惋心) ( ) 信誉:100  2005-01-09 13:23:00  得分: 0  
     
     
       quote: If i ^ 3 + j ^ 3 + m ^ 3 = i * 100 + j * 10 + m 
    什么意思?
      
     如果 i立方 + j立方 + m立方= 百位+十位+个位 !应该是这样解释的!!
      

  5.   

    3
    Sub Randomize([Number])
        VBA.Math 的成员
        初始化一个随机数生成器
    Function Rnd([Number]) As Single
        VBA.Math 的成员
        返回一个随机数请问这个该如何用啊?? 第三题还有没有其他方法  ??
      

  6.   

    日,那是”水仙花数“。如:153=1^3+5^3+3^3。其中幂为数字的位数,3位数。http://forever2048.51.net/download/Asphodel.exe程序下载