VB程序设计试题及答案1.pdf

VB 程序设计期末模拟试题及答案程序设计期末模拟试题及答案 VB 期末复习题及答案 综合复习题 一 填空题 1 创建一个 VB 应用程序三个主要的步骤是 创建应用程序界面 设置属性 和 编写代码 2 当程序运行时 要求窗体中的文本框呈现空白 则在设计时 应当在此文本框的 属性 窗口中 把此 文本框的 text 属性设置成空白 3 Label 和 TextBox 控件用来显示和输入文本 如果仅需要让应用程序在窗体中显示文本信息 可使用 Label 控件 若允许用户输入文本 则应使用 TextBox 控件 4 窗体的常用方法有 Load 方法 show 方法 Hide 方法 和 Unload 方法 5 要想在代码中给名为 txtshow 的文本框赋予文本 GOOD WORK 应当编写的语句是 Txtshow T ext GOOD WORK 6 若命令按钮的名称为 Cmdopen 程序要求单击该命令按钮时 打开一个窗口 frm1 请对以下事件过 程填空 Private Sub Cmdopen Click Frm1 show End Sub 7 Visual Basic 6 种类型的表达式是 数算表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式 Visual Basic 根据表达式的 运算符 来确定 表达式的类型 8 表达式 93 7 Mod 2 2 的值是 1 9 已知 a 3 b 4 c 5 表达式 a b and Not c a Or c b And ca And Not b 1 7 And W 62 5B T 62 5 C T 1 7 And W 1 7 Or W a b Or b 1 c 1 And c a a Xor b c 2 End SubFalse 逻辑表达式计算结果 7 12 31 1999 12 20 1999 的运算结果是 12 11 1999 不正确 两个日期型数据相减 其结果是一个数值型数据 8 可以在窗体的通用部分声明静态变量 不正确 静态变量为局部变量 只能在过程中声明 9 使用声明语句建立一个变量后 Visual Basic 会自动对数值类型的变量赋初值 0 变长的字符串被初 始化为一个零长度的字符串 定长字符串用空格填充 Variant 变量被初始化为 Empty 布尔型的变量 被初始化为 False 10 事件过程通常由事件驱动执行 而 Sub 过程通过过程调用执行 11 将焦点主动设置到指定的控件或窗体上应采用 SetFocus 方法 12 当图像控件 Image 的 Stretch 属性为 True 时 Image 控件能自动调整自己的尺寸与显示的图 片匹配 不正确 该属性设为 Ture 时 Image 控件不能自动调整自己的尺寸与显示的图片匹配 而 可以使图片自动扩展以适应控件的尺寸 四 读程序题 写出程序运行结果 1 Private Sub Form Click For I 1 To 9 For j 1 To 30 3 I Print Next j For k 1 To I Print k Next k For k I 1 To 1 Step 1 Print k Next k Print Next I End Sub 2 Option Explicit Private Sub Command1 Click Static S As Integer Dim i As Integer S 1 For i 1 To 5 S S i Next i 1 程序运行后 单击窗体 输出结果为 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 Print S End Sub程序运行后 单击按钮 Command1 输出结果为 120 3 For X 5 To 1 Step 1 For Y 1 To 6 X Print Tab Y 5 Next Y Print Next X 4 Private Sub Form Activate Print aa 5 6 Not 2 3 Print Print 30 60 Print 30 60 30 60 30 60 End Sub 5 X 1 Do While X 10 If X Mod 7 0 Then Y X 6 Else Z X End If X X 2 Loop Print X Y Z11139 五 编程题 1 设计一个计算程序 该程序用户界面如图所示 由四个文本框 文本框 1 text1 文本框 2 text 2 文本框 3 text3 文本框 4 text4 和三个按钮 命令按钮 1 command1 命令按钮 2 command2 命令按钮 3 command4 组成 程序运行后 用户单击清除按钮 则清除文本框中 显示的内容 单击计算按钮 如果成绩填写不完全 则给出提示信息 否则计算三科平均成绩 单击退出 按钮则退出 Private Sub Command1 Click Text1 Text Text2 Text Text3 Text Text4 Text End Sub Private Sub Command2 Click a Trim Text1 Text 3 aabb 30False aabb 30False 30 6090 30 60 90 b Trim Text2 Text c Trim Text3 Text If a Or b Or c Then MsgBox 成绩填写不完全 vbCritical Else Text4 Text Val a Val b Val c 3 End If End Sub Private Sub Command3 Click Unload Me End Sub 2 设计程序 要求 从文本框 Text1 中接收输入的数据 当单击确定按钮 command1 时 如果该数 据满足条件 除以 3 余 2 除以 5 余 3 除以 7 余 4 则输出 否则将焦点定位在文本框 Text1 中 选中 其中的文本 Private Sub Command1 Click x Val Text1 Text If x Mod 3 2 And x Mod 5 3 And x Mod 7 4 Then Print x Else Text1 SetFocus Text1 SelStart 0 Text1 SelLength Len Text1 Text End If End Sub 3 设计一个欢迎程序 该程序用户界面如图所示 要求程序运行后 用户选中粗体复选框时 标签 Lab el1 中的文字 欢迎您 的字体变成粗体 用户选中斜体复选框时 标签的字体变成斜体 若取消选中 则恢复原字体 单击结束 则退出 Private Sub Check1 Click If Check1 Value 1 Then Label1 Font Bold True Else Label1 Font Bold False End If End Sub Private Sub Check2 Click If Check2 Value 1 Then Label1 Font Italic True Else Label1 Font Italic False End If End Sub Private Sub Command1 Click Unload Me End Sub 4 任意输入 3 个数 求大小排第二