Vb填空题、操作题部分试题
切勿丢失
VB操作题部分
VB——1
打开“考生文件夹\18”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！填空完成程序，使程序实现如下功能：从键盘输入10个100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值。
Private Sub Command1_Click()
Dim x As Integer
  x = InputBox("请输入您的数：")
  Print "您输入的数有" & x; "、";
  Max = x: Min = x: Sum = x
  For i = 2 To 10
  x = InputBox("请输入您的数"): Print x;
  Sum = Sum + x
  If Max>x Then Max = x
  If Min<x Then Min = x
  Next i
  Print "平均值" & Sum/10
  Print "最大数" & Max, "最小数" & Min
End Sub
VB——2
打开“考生文件夹\15”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
填空完成程序，使程序实现如下功能：点击“计算”按钮后，在窗体上输出“1+2+……+100”的和，并求出1到100之间能被19整除的整数的个数。运行结果如下图：
Private Sub Command1_Click()
  Dim i As Integer, x As Integer
  Dim s As Integer
  s = 0
  x = 0
For i = 1 To 100
    s=s+i
  If i mod 19 =0 Then x=x+1
  Next i
  Print "1+2++100=" & s
  Print "1到100之间能被19整除有:" & x & "个数"
End Sub
VB——3
打开“考生文件夹\9”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
利用字符串函数Ucase(x)和转换函数Asc(x)填空完成程序，当单击窗体后在窗体上显示如下图所示的结果：
Private Sub Form_Click()
  Dim str1 As String, str2 As String
  Dim str3 As String, i As Integer
  str1 = "f"
    For i = 1 To 2
      str2 = UCase(str1)
      str1 = str2 & str1
      str3 = str3 & str1
      str1 = Chr(Asc(str1) + i)
      Next i
    Print str3
End Sub
VB——4
打开“考生文件夹\8”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
填空完成程序，当点击“画图”按钮时，程序能打印出下面所示的图案：
@
@@
@@@
@@@@
@@@@@
@@@@@@
Private Sub Command1_Click()
  Dim i As Integer
  Dim j As Integer
  For i = 1 To 6
      Print Tab(10);
      For j = 1 To i
        Print “@”;
        Next j
      Print
  Next i
End Sub
VB——5
打开“考生文件夹\7”文件夹中的文件“hn-01.vbp”，进行以下操作后并保存！
填空完成程序，使程序实现如下功能：
已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，单击“计算”按钮，在文本框Text1中显示出三角形的面积，操作完成后保存并关闭应用程序。
Private Sub Command1_Click()
a = 15
b = 18
s = 0.5 * a * b * sin(41 * 3.14 / 180)
= s
End Sub
VB——6
打开“考生文件夹\14”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
填空完成程序，使程序实现如下功能：制作一个成绩等级程序，要求在文本框Text1中输入成绩，点击“等级”按钮时，显示相应的等级。具体等级划分为：90分以上为“优”，80到89分为“好”，70到79分为“良”，60到69分为“及格”，60分以下为“不及格”。
Private Sub Command1_Click()
  Dim x As Integer, grade As String
      x =
      Select Case x
      Case 90 To 100
                grade = "优"
      Case 80 To 89
                grade = "好"
      Case 70 To 79
                grade = "良"
      Case 60 To 69
                grade = "及格"
      Case Is < 60
                grade = “不及格”
      Case Else
                MsgBox "请重新输入"
End Select
Print "该学生成绩为:" + grade
End Sub
VB——7
打开“考生文件夹\12”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
填空完善程序，使程序实现如下功能：在窗体上有Text1、Text2两个文本框，在文本框Text1中输入1到20之间的整数(包括1和20)，然后单击命令按钮Command1则在Text2中显示50。
Private Sub Command1_Click()
  n =
  Select Case n
    Case 1 to 20
          x = 50
    Case 2, 4, 6
          x = 20
vb编程基础知识for while
    Case Is < -10
          x = 30
    Case 15
          x = 40
    End Select
    Text2.Text = x
End Sub

VB——9
打开“考生文件夹\11”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
填空完成程序，使程序实现如下功能：
程序运行后，在文本框Text1中输入“abcd”，单击命令按钮，在标签Label1中显示出“bcd”。
Private Sub Command1_Click()
strtext = InputBox("请输入")
Text1.Text = strtext
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(),3)
End Sub
VB——10
打开“考生文件夹\21”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
填空完成程序，使程序实现如下功能：输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。收费标准：车程在3公里以内（包括3公里）的统一收费12元； 超过3公里但不超过10公里的（包括10公里），则超过3公里的部分每公里收费2元；如果车程超过10公里，则超过10公里的部分每公里收费3元。
Private Sub Command1_Click()
x = Val(Text1.Text)
If x > 0 And x <= 3 Then y=12
If x > 3 And x < 10 Then y = 12 + (x - 3) * 2
If x > 10 Then y = 26+(x-10)* 3
If x <= 0 Then y = 0
Label1.Caption = x & "公里"
Label2.Caption = y & "元"
End Sub
VB——8
打开“考生文件夹\10”文件夹中的文件“工程1.vbp”，进行以下操作后并保存！
填空完成程序，使程序实现如下功能：填空完成程序，使程序实现如下功能：
程序运行后，单击“初始值”命令按钮对数组a的各元素赋值；单击“求和”命令按钮，求出数组a的各元素之和，并在Text1中显示出来，最后的结果如下图所示。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。