华中科技大学2016秋VB模拟题（文科）

计算机与程序设计基础（VB.NET）模拟题（文科）

一．单选题（20题）

1. 冯·诺依曼计算机的特点主要是指计算机_________。

A．提供了人机交互的界面 B．具有输入输出的设备 C．能进行算术逻辑运算 D．可运行预先存储的程序

2. 计算机硬件主要由_________、控制器、存储器、输入设备及输出设备等构成。

A．屏幕B．运算器C．键盘D．打印机 3. 计算机中，运算器的主要功能是进行_________。

A．逻辑运算B．算术运算

C．算术运算和逻辑运算D．复杂方程的求解

4. 1GB = _________。

A．1000MB B．1024MB C．1000KB D．1024KB 5. 断电会使存储数据丢失的存储器是_________。

A．ROMB．U盘C．硬盘D．RAM 6. 下列设备中，属于计算机输入设备的是_________。

A．鼠标B．音箱C．打印机D．显示器 7. 下面的_________不是操作系统。

A．JavaB．Mac OS C．LinuxD．Windows 8. 以下哪个是有效的主机IP地址_________。

A．227.116.167B．A.B.C.DC．115.156.150.83D．280.192.33.45 9. www.hust.edu.cn是Internet上一台计算机的_________。

A．域名B．IP地址 C．非法地址D．协议名称 10. 计算机病毒是_________。

A．一种硬件设备 B．人为编制的程序 C．环境干扰产生的电磁波 D．自然产生的生物体 11. 十进制整数35转换为二进制数是_________。

A．100111 B．111011 C．110111 D．100011

12. Visual Basic.Net是一种面向对象的程序设计语言，构成对象的三要素是_________。

A．属性、事件、方法 B．控件、属性、事件 C．窗体、控件、过程 D．窗体、控件、模块 13. 当运行程序时，系统自动执行启动窗体的_________事件过程。

A．Load B．Click C．UnLoad D．GotFocus 14. 表达式Len(Lcase(\中国ABC\的值是_________。

A．11 B．123456 C．\中国abc\ D．\15. VB.NET提供了结构化程序设计的三种基本结构，三种基本结构是_________。

A．递归结构，选择结构，循环结构 B．选择结构，过程结构，顺序结构 C．过程结构，输入输出结构，转向结构 D．选择结构，循环结构，顺序结构

16. 以下_________程序段可以实现x、y变量值的交换。

A．y = x ：x = y B．z = x ：y = z ：x = y

C．z = x ：x = y ：y = z D．z = x ：w = y ：y = z ：x = y 17. 下面正确的赋值语句是_________。

A．x + y = 30 B．y = π * r * r C．y = x + 30 D．3y = x 18. 语句“If x = 1 Then y = 1”，下列说法正确的是_________。

A．“x = 1”和“y = 1”均为赋值语句 B．“x = 1”和“y = 1”均为关系表达式

C．“x = 1”为关系表达式，“y = 1”为赋值语句 D．“x = 1”为赋值语句，“y = 1”为关系表达式 19. 下列关于For …Next 语句的说法正确的是_________。

A．循环变量、初值、终值和步长都必须为数值型 B．Step后的步长只能为正数 C．初值必须小于终值 D．初值必须大于终值

20. 有以下程序段：

Dim i%, j% , n%, m%, k% m = 0 : k = 0 For i = 1 To 5 k = k + 1 n = 0

For j = 1 To 2 n = n + 1 m = m + 1 Next j Next i

MsgBox( k &\ n &\ m)

运行该程序代码段后，消息对话框中显示的内容为_________。

A．5 10 2 B．5 10 10 C．5 2 10 D．5 2 2

二．程序填空（10空）

1. 随机生成一个整数，取值范围为[a, b]，并将该值显示在标签Label1中。

Dim X% '使用变量X表示随机生成的整数。 X = Int((a-b+1)*Rnd+b) Label1.Text = \随机生成的整数值为：\ X

2. 给定年份，判断该年是否闰年。闰年的条件是年号可以被4整除但不能被100整除，或

者能被400整除。

Dim y As Integer'y用来表示年号 y = Val(TextBox1.Text)

If ( y Mod 4 = 0 ①And y Mod 100 <> 0 ) Then MsgBox(\是闰年\

ElseIf ②y Mod 400=0 Then MsgBox(\是闰年\Else

MsgBox(\是普通年份\End If

3. 将整型变量a、b、c中的三个数按从大到小进行排序（最大的数放变量a中，最小的数

放变量c中）。

If a < b Thend = a : a = b : b = d If a < c Thend = a : a = c : c = d If b < c Thend = b : b = c : c = d 4. 显示出所有的水仙花数。所谓水仙花数，是指一个3位正整数，各位数字立方和等于该

数字本身。例如，153是水仙花数，因为153 = 13 + 53 + 33。将结果显示在标签Label1中。

Dim i%, a%, b%, c% For a =①0To 9

For b = 0 To 9

For c = 0 To 9

i = a * 100 + b * 10 + c②'i为三位正整数 If a ^ 3 + b ^ 3 + c ^ 3 = i ③ Then

Label1.Text &= i &\End If Next c Next b Next a 5. 假设我国现有人口为13亿，设年增长率为1%，计算多少年后我国人口达到或超过15

亿。

' P用于表示人口数，R为年增长率，N用于表示经历的年数 Dim P As Double, R As Single, N As Integer ①P=1300000000 R = 0.01 N = 0

Do While P < 1500000000

P = P + P * R

N = N+1②

Loop

MsgBox(N &\年后，人口为\

三．读程序写结果（5题）

1. 程序段如下，程序运行后消息框显示的结果是什么？

Dim x% = Int(Rnd( )) + 2 If x > 4 Then

MsgBox(\ElseIf x > 3 Then

MsgBox(\ElseIf x > 2 Then

MsgBox(\Else

MsgBox(\End If 2. 下列程序段执行后，变量s和i的值分别为多少？

Dim s%, i% s = 0

For i = 10 To 50 Step 10 s = s + i

If i = 30 Then Exit For End If Next i

3. 下列程序段执行后，在标签Label1中将打印出什么样的图形？

Label1.Text = \For i = 3 To 1 Step -1

Label1.text &= Space(6 – 2 * i) For j = 1 To 2*i-1 Label1.Text &= \Next j

Label1.Text &= VbCrLf Next i

四．程序设计题（2题）

1．任意给定三个各不相同的整数，试编程求其中大小居中的数。 四个文本框的名字按顺序为：TextBox1~TextBox4

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'在这里编写程序

End Sub End Class

2．试编程求任意两个不全为0的正整数的最大公约数和最小公倍数。 四个文本框的名字按顺序为：TextBox1~TextBox4

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'在这里编写程序

End Sub End Class

本文来源：https://www.bwwdw.com/article/077p.html