VB基础

Question

我的某一非计算机专业的同学叫我帮她完成一份选修课的作业，但由于本人也没有学过VB，所以拜托各位帮一下忙，谢谢！题目如下：
1、 什么是VB的对象，属性，方法，事件？每一概念试举出两个以上的具体例子。
2、 请把下列表达式写成VB表达式：
（1）二次方程的求根公式
（2）y=    e x + 2cosx - 6  + 1.75
           3x2+8x
3、写出实现以下功能的语句
（1）清除文本框内文字
（2）清除picture框文字
（3）求 [1，10]间的随机整数。
（4）闰年的条件是：年号（year）能被4整除，但不能被100整除；或者能被400整除。
4、写出以下表达式或函数的值
"12"+"34"=                
"abcd" > "abrd" =            
val("123")=                 
str$(123) & "4" =             
print  "VB"+tab(3)+"5.0"+spc(1)+"教程" 显示结果为                       
5、如下一段代码:
for I=1 to 3 内循环变量是                   
  print I;     外循环变量是               
  for J=1 to 3 print I; 被执行    次
    print J;  print J; 被执行    次
  next J 显示结果:                         
  print         
next I
6、改写 do while I>10 : … : Loop为其他三种do  …  Loop 方式
                      
                               
                             
 
                             
7、改写If d>=0 then print x1,x2: if d<0 print “无实根”
用单语句if   then  else                                                       
用形式if   then
     ……
         end if                                    
用形式select case 
     …..
       End …                    

Answer 1

第二题的第二小题是这样的：y=（e的x次方加上2cosx再减去6）除以（3乘以x的平方加上8x）加上1.75

Answer 2

1：书上有原本的内容
2：比较费时间。
3(1):text=""
val("123")=123           

Answer 3

1、对象是具有属性和行为方式(方法)的实体。如按钮.文本框,图片等.
   每个对象都有一组特征，称之为属性。如按钮的背景色,宽,是否可见等.
   事件是预先定义好的、能够被对象识别的动作，如Click(单击)、DblClick(双击)、Load(装载)、MouseMove(移动鼠标)等。
   方法是用于完成某种特定功能而不能响应某个事件，如Print(打印对象)、Show(显示窗体)、Move(移动)方法等。
2、
  （1）X1=（-1*b+sqr（b^2-4*a*c))/2*a;X2=（-1*b-sqr（b^2-4*a*c))/2*a
  (2)y=(e* x + 2*cos(x)- 6)/(3x2+8x)  + 1.75 
3、
  （1）Text1.text=""
   (2)picture1.cls 
   (3) Dim MyValue
       Randomize  
        MyValue = Int((10 * Rnd) + 1)
   (4)  S = Year(Date)
If (S Mod 4=0 and S Mod 100<>0) Or (S Mod 4=0 and S Mod 400=0) Then4、"12"+"34"= "1234";abcd" > "abrd" =false;val("123")=123;str$(123) & "4" = "1234"            
    print  "VB"+tab(3)+"5.0"+spc(1)+"教程" 显示结果为"VB            5.0 教程"

Answer 4

5、for I=1 to 3 内循环变量是 J                 
  print I;     外循环变量是 I            
  for J=1 to 3 print I; 被执行 3   次 
    print J; print J; 被执行 9  次 
  next J 显示结果: 1123；2123；3123  
  print         
next I 
6、第一种
I = 100
Do
I = I - 10
Debug.Print I
Loop While I > 10
第二种
I = 100
Do
I = I - 10
Debug.Print I
Loop Until I <= 10
第三种
I = 100
Do Until I <= 10
I = I - 10
Debug.Print I
Loop

Answer 5

7、（1）用单语句if  then  else If d >= 0 Then Print X1, X2 Else Print "无实根"   （2）用形式if  then 
    …… 
        end if 
 
  If d >= 0 Then
Print X1, X2
Else
Print "无实根"
End If                                （3）用形式select case 
    ….. 
      End …     Select Case d
Case Is >= 0
Print X1, X2
Case Else
Print "无实根"
End Select