VB程序代码

Private Sub Command1_Click()

Dim s!, i%

   s = 0

   For i = 2 To 10 Step 2

   s = s + 1 / i

   Next i

   Print "s="; s

2.计算s=1+1/2!+1/3!+1/4!+1/5!+…1/n!请在输入的文件中用command1_click事件，利用文本控text1输入正整数n的值，并显示在form上

Dim i%, j%, n%, s#, sum#

Private Sub Command1_Click()

  n = Val(Text1.Text)

  s = 1: sum = 1

  For i = 1 To n

   For j = 1 To i

   sum = sum * j

   Next j

   s = s + 1 / sum

   Next i

   Print "s="; s

   End Sub

3.请在给出窗体中使用for循环语句编写程序打印下面给出的图形，特别说明每一行两个数字之间有两个空格

1

2  4

3   6   9

4    8   12   16

5    10   15    20    25

 Private Sub Command1_Click()

   Dim s&

   For i = 1 To 5

     For j = 1 To i

     s = i * j

Print s; Space(2);

Next j

Print

Next i

End Sub   

4.通过键盘输入15 个数，找到其中的最大值和最小值并对掉，将对调之后的结果以红色15号子显示在label1中

Dim a(1 To 15) As Integer, i%, j%

Private Sub Command1_Click()

   For i = 1 To 15

   a(i) = Val(InputBox("请输入一个数", " "))

   Print a(i):

   Next i

   Dim b(1 To 15) As Integer

    Max = a(1): imax = 1: Min = a(1): imin = 1

   For i = 2 To 15

If a(i) > Max Then

   Max = a(i)

   imax = i

   End If

If a(i) < Min Then

   Min = a(i)

   imin = i

   End If

   Next i

   For i = 1 To 15

   b(i) = a(i)

   Next i

   j = b(imax)

   b(imax) = b(imin)

   b(imin) = j

   Label1.FontSize = 15

   Label1.ForeColor = RGB(255, 0, 0)

   For i = 1 To 15

   Label1.Caption = Label1.Caption & " " & Str(b(i))

   Next i

   End Sub

5.S=1!+2!+…………..+n!计算

   Dim s As Integer, i As Integer, j As Integer

Private Sub Command1_Click()

n = Val(InputBox("请输入一个正整数"))

s = 0

For i = 1 To n

   m = 1

   For j = 1 To i

   m = m * j

   Next j

s = s + m

Next i

Print "s="; s

End Sub

6.打印a a a a 

        B b b b 

Dim ch(3) As String, i As Integer, j As Integer

Private Sub Form_click()

ch(0) = "a"

ch(1) = "b"

ch(2) = "c"

ch(3) = "d"

For i = 0 To 3

   For j = 0 To 3

     Print Tab(i * 5 + j * 5); ch(i);

   Next j

Next i

End Sub

Dim a(1 To 10) As Long, i As Integer, s As Single

Private Sub Command1_Click()

 For i = 1 To 10 '通过键盘输入10个数，找到其中大于60的数，并求出这些数的和

     a(i) = Val(InputBox("请输入一个数")) '将大于60的数和他们的和以红色16号字显示在标签中

    Print a(i), s = 0

 Next i

 For i = 1 To 10

If a(i) > 60 Then

      s = s + a(i)

      Label1.Caption = Label1.Caption & Str(a(i))

   End If

 Next i

 Label1.ForeColor = RGB(255, 0, 0)

 Label1.FontSize = 16

 Label1.Caption = Label1.Caption & "总和为：" & Str(s)

End Sub

Dim a%, b%, c%

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

If a + b > c And a + c > b And b + c > a Then

   Picture1.Print "这三边能构成一个三角形"

If a = b Or a = c Or b = c Then

   Picture1.Print "这三边能构成一个等腰三角形"

ElseIf a = b And b = c Then

   Picture1.Print "这三边能构成一个等边三角形"

ElseIf a ^ 2 + b ^ 2 = c ^ 2 Or c ^ 2 + b ^ 2 = a ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Then

   Picture1.Print "这三边能构成一个直角三角形"

Else

   Picture1.Print "这三边能构成一个任意三角形"

End If

Else

   Picture1.Print "这三边能不能构成一个三角形"

End If

End Sub

Dim i As Integer, j As Integer, s As Single

Private Sub Command1_Click()

 n = Val(InputBox("请输入一个正整数")) '编写程序计算

 s = o

 For i = 1 To n

  m = 1

  For j = 1 To i

  m = m * j

  Next j

s = s + m

Next i

Label1.Caption = s

End Sub

Private Sub Command1_Click()

  Label1.Left = 150 '将红色标签向下移150个单位

End Sub

Private Sub Command2_Click()

Label1.Caption = "大家好" '在红色标签中显示"大家好"

End Sub

Private Sub Command3_Click()

If Label1.Visible = False Then

    Label1.Visible = True

  Else

  Label1.Visible = False

End If

End Sub

【3】 图像框（image)有一个属性，可以自动调整图形的大小以适应图像框的尺寸，这个属性是

     A、Autosize

     B、Stretch

     C、AutoRedraw

     D、Appearance

标准答案：B    

 4】 函数 InStr("windowse", Mid("winnt",2,2)) 的返回值是(      )。

     A、0    

     B、1            

     C、2

     D、3

标准答案：C   

  6】 下列符号中哪个是VB程序中合法的变量名（  ）

     A、ab7

     B、7ab

     C、If

     D、a.bc

    标准答案：A

【4】 VB中工程文件的扩展名为（）

     A、．vbp 

     B、.frm

     C、 .ds

     D、 .bas

    标准答案：A

窗体文件的后缀名为BAS。

    标准答案：N   

ＶＢ中窗体文件的后缀名为 frm

    标准答案：Y  

下列程序段的运行结果为（）

n=0

j=1

do while n>2

 n=n+j

loop

print n,j

     A、2  1

     B、0  2

     C、0  1

     D、2  2

    标准答案：C  当style属性值为2时，组合框中的文本框不能被编辑

    标准答案：Y

Dim a(1 To 10) As Long, i%, j%, k%

Private Sub Command1_Click()

Form1.FontSize = 18

Form1.ForeColor = vbBlue

For i = 1 To 10

  a(i) = Int(Rnd * 99 + 1)

  Print "原始数组为："; a(i)

Next i

Print

i = 1

For j = 1 To 10

If a(i) > a(j) Then

    k = a(i)

    a(i) = a(j)

    a(j) = k

  End If

Next j

Print "最小数为："; a(1);

Print

Print "删除后的最小数为："

For i = 2 To 10

 Print a(i)

Next i

End Sub