vb2级题答案

一（1）将列表框的sorted属性改为true

一(2)”缩小“中的代码为:

Label1.fontsize=label1.fontsize-2

“还原“中代码:

label1.fontsize=12

二(1)将If num / 2 ? Fix(num / 2) Then中的？改为<> 将If num < a(1) ? num > a(30) Then中的？改为or

将If a(n) = ? Then?改为num

将If n ? 30 Then中的?改为>

二(2)将? = (a(i, 2) + a(i, 3)) / 2中的?必变Avg

将Case ?改为is > =85

将第二个Case ?改为is>=60

将?改为end select

将text1(?)=x(n)中的?改为n-1

三.

“计算”中代码:

For i = 1 To 20

Sum = 0

For j = 1 To 5

Sum = Sum + a(i, j)

Next

Avg = Sum / 5

If Avg > Max Then Max = Avg

Next

Text2.Text = Max

第六十八套

一（1）画一个通用对话框控件，通过其属性窗口将名称设为CD1，DialogTitle属性设为“保存等级考试”，FileName属性设为None，InitDir属性设为c:\。

一（2）通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“菜单命令”，名称处输入menu0。在“右键菜单”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“不可用菜单项”、“上一菜单项可用”，名称处分别输入menu1和menu2。

在Sub menu2_Click()事件过程中加入语句：

Private Sub menu2_Click()

menu1.Enabled = True

End Sub

二（1)在Private Sub Command1_Click()事件过程中

1) 将语句

'If a(i) ? x Then

改为

If a(i) > x Then

2) 将语句

'? = a(i)

改为

x = a(i)

3) 将语句

'ElseIf a(i) ? Then

改为

ElseIf a(i) < y Then

4) 将语句

'? = a(i)

改为

y = a(i)

二（2）通过List1属性窗口将MultiSelect属性设为Simple。

在Public Sub MoveItem(L1 As ListBox, L2 As ListBox)事件过程中

1) 将语句

'L2.AddItem ?

改为

L2.AddItem L1.List(L1.ListIndex)

2) 将语句

'L1.RemoveItem ?

改为

L1.RemoveItem L1.ListIndex

在Public Sub MoveAll()事件过程中

1) 将语句

'For i = 0 To ?

改为

For i = 0 To List1.ListCount - 1

在Private Sub List1_DblClick()事件过程中

'Call MoveItem(?)

改为

Call MoveItem(List1, List2)

三单击“计算”按钮：

Private Sub Command1_Click()

Dim Sum As Long

N = 7

Counter = 0

Sum = 0

'===============考生编写程序开始======================

For k = 1 To N

Sum = Sum + a(k, k)

If a(k, k) / 3 = Int(a(k, k) / 3) Then

Counter = Counter + 1

End If

If k <> N - k + 1 Then

Sum = Sum + a(k, N - k + 1)

If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then

Counter = Counter + 1

End If

End If

Next

lblSecond.Caption = Sum

lblFirst.Caption = Counter

'===============考生编写程序结束======================

Save

End Sub

第六十七套

一（1）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“滚动条控件”。画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，最大值（Max 属性）设为100，最小值（Min属性）设为1，宽度（Width属性）设为3000，高度（Height

属性）设为300，Value属性设为20。

一（2）画一个形状控件，通过其属性窗口将名称设为Shape1，Shape属性设为Circle。画一个计时器控件，通过其属性窗口将名称设为Timer1，Enabled属性设为False，Interval属性设为500。

在Private Sub Form_Load()事件过程中加入语句：

Private Sub Form_Load()

Timer1.Enabled = True

End Sub

在Private Sub Timer1_Timer()事件过程中加入语句：

Private Sub Timer1_Timer()

Shape1.Top = Shape1.Top + 100

End Sub

二（1）在Private Sub Text2_Change事件过程中

1) 将语句

'If ? = 1 Then

改为

If Check1.Value = 1 Then

2) 将语句

'Form1.Text3.PasswordChar = ?

改为

Form1.Text3.PasswordChar = ""

3) 将语句

'Text3.PasswordChar = ?

改为

Text3.PasswordChar = "#"

4) 将语句

'Text3.Text = ?

改为

Text3.Text = Text2.Text

二（2）在Private Sub Command1_Click()事件过程中

1) 将语句

'For k = 2 To ?

改为

For k = 2 To 5

2) 将语句

'x = FindMin(Val(Text1(k).Text), ?)

改为

x = FindMin(Val(Text1(k).Text), x)

3) 将语句

'lblResult.Caption = ?

改为

lblResult.Caption = x

在Public Function FindMin(x As Integer, y As Integer)事件过程中

1) 将语句

'If x ? y Then

改为

If x > y Then

三Sum=0

n=0

For i=1to7

Forj=1to7

if i=1ori=7then

Sum=Sum+a(i,j)

if a(i,j)then n=n+1

Else

if j=1 or j=7 then

Sum=Sum+a(i,j)

if a(i,j)mod7=0 then n=n+1

end if

end if

next

print

next

lb1 first.caption=n

lb1 second 点caption=Sum

第六十六套

一（1）画一个形状控件，通过其属性窗口将名称设为Shape1，Shape属性设为2，长轴（Width 属性）设为1600，短轴（Height属性）设为800。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“S hape控件”。

一（2）画一个水平滚动条控件，通过其属性窗口将名称设为HS，最大值（Max属性）设为100，最小值（Min属性）设为1。画一个列表框控件，通过其属性窗口将名称设为List1，向列表框中添加项目（List属性），添加的项目分别为“1000”、“1500”、“2000”，每个项目为一行。

单击列表框中某一项目（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub List1_Click()

HS.Width = List1.Text

End Sub

二（1）在Private Sub Option1_Click(Index As Integer)事件过程中

1) 将语句

'Select Case ?

改为

Select Case Index

2) 将语句

'Text2.Text = f1(?)

改为

Text2.Text = f1(n)

3) 将语句

'Text2.Text = f1(?)

改为

Text2.Text = f1(n + 2)

在Public Function f1(n As Integer) As Integer事件过程中1) 将语句

'For i = 1 To ?

改为

For i = 1 To n

2) 将语句

'? = x

改为

f1 = x

二（2）在Private Sub Command1_Click()事件过程中

1) 将语句

'p = ?(s, s1)

改为

p = InStr(s, s1)

2) 将语句

's = ?(s, p + 1)

改为

s = Mid(s, p + 1)

3) 将语句

'Loop While p ? 0

改为

Loop While p <> 0

4) 将语句

'Label3.Caption = ?

改为

Label3.Caption = n

在Private Sub Form_Load()事件过程中

1) 将语句

'Text1.Text = ?

改为

Text1.Text = s

三单击“计算”按钮：

Private Sub C1_Click()

a% = 18000

Do

a% = a% - 1

Loop Until isprime(a%)

Text1.Text = a%

End Sub

单击“存盘”按钮：

Private Sub C2_Click()

Open App.Path & "\out5.txt" For Output As #1

Print #1, Text1.Text

Close #1

End Sub

第六十五套

一（1）通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”和“退出”，名称处分别输入file和exit。在“文件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“新建”和“保存”，名称处分别输入new和save。

一（2）画一个图像框控件，通过其属性窗口将名称设为Image1，左边界（Left属性）设为360，点击Picture属性在弹出的加载图片对话框中将Duck.bmp图片文件打开即实现加载功能。画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”、“Command2”，标题（Caption属性）分别设为“移动”、“复位”。

单击“移动”按钮：

Private Sub Command1_Click()

Image1.Left = Image1.Left + 10

End Sub

单击“复位”按钮：

Private Sub Command2_Click()

Image1.Left = 360

End Sub

二（1）添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为3000。

在命令按钮数组的Private Sub Cmd_Click(Index As Integer)事件过程中

1) 将语句

'If Index = ? Then

改为

If Index = 2 Then

2) 将语句

'Timer1.Enabled = ?

改为

Timer1.Enabled = True

在计时器的Private Sub Timer1_Timer()事件过程中

1) 将语句

'Select Case ?

改为

Select Case flag

二（2）在窗体的Private Sub Command2_Click()事件过程中1) 将语句

'If Len(s) = ? Then

改为

If Len(s) = 0 Then

2) 将语句

'If Text1.? = 0 Then

改为

If Text1.SelLength = 0 Then

3) 将语句

'x = ?

改为

x = LCase(t)

4) 将语句

'? = Str(m)

改为

Text2.Text = Str(m)

三单击“素数”按钮：

Private Sub Command2_Click()

Dim b(100) As Integer

num = 0

If Len(Text1.Text) = 0 Then

MsgBox "请先执行“读数据”功能！"

Else

'考生编写(功能：生成存放素数的数组b )

'注意：请务必将数组b 的元素个数存入变量num 中

For i = 1 To 100

flag = 0

For j = 2 To a(i) - 1

If a(i) / j = Fix(a(i) / j) Then

flag = 1

Exit For

End If

Next

If flag = 0 Then

num = num + 1

b(num) = a(i)

End If

Next

'以下程序段将b 数组的内容显示在Text2中

For i = 1 To num

Text2.Text = Text2.Text + Str(b(i)) + Space(2)

Next i

End If

End Sub

第六十五套

一（1）通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”和“退出”，名称处分别输入file和exit。在“文件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“新建”和“保存”，名称处分别输入new和save。

一（2）画一个图像框控件，通过其属性窗口将名称设为Image1，左边界（Left属性）设为360，点击Picture属性在弹出的加载图片对话框中将Duck.bmp图片文件打开即实现加载功能。画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”、“Command2”，标题（Caption属性）分别设为“移动”、“复位”。

单击“移动”按钮：

Private Sub Command1_Click()

Image1.Left = Image1.Left + 10

End Sub

单击“复位”按钮：

Private Sub Command2_Click()

Image1.Left = 360

End Sub

二（1）添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为3000。

在命令按钮数组的Private Sub Cmd_Click(Index As Integer)事件过程中

1) 将语句

'If Index = ? Then

改为

If Index = 2 Then

2) 将语句

'Timer1.Enabled = ?

改为

Timer1.Enabled = True

在计时器的Private Sub Timer1_Timer()事件过程中

1) 将语句

'Select Case ?

改为

Select Case flag

二（2）在窗体的Private Sub Command2_Click()事件过程中1) 将语句

'If Len(s) = ? Then

改为

If Len(s) = 0 Then

2) 将语句

'If Text1.? = 0 Then

改为

If Text1.SelLength = 0 Then

3) 将语句

'x = ?

改为

x = LCase(t)

4) 将语句

'? = Str(m)

改为

Text2.Text = Str(m)

三单击“素数”按钮：

Private Sub Command2_Click()

Dim b(100) As Integer

num = 0

If Len(Text1.Text) = 0 Then

MsgBox "请先执行“读数据”功能！"

Else

'考生编写(功能：生成存放素数的数组b )

'注意：请务必将数组b 的元素个数存入变量num 中

For i = 1 To 100

flag = 0

For j = 2 To a(i) - 1

If a(i) / j = Fix(a(i) / j) Then

flag = 1

Exit For

End If

Next

If flag = 0 Then

num = num + 1

b(num) = a(i)

End If

Next

'以下程序段将b 数组的内容显示在Text2中

For i = 1 To num

Text2.Text = Text2.Text + Str(b(i)) + Space(2)

Next i

End If

End Sub

第六十五套

一（1）通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”和“退出”，名称处分别输入file和exit。在“文件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“新建”和“保存”，名称处分别输入new和save。

一（2）画一个图像框控件，通过其属性窗口将名称设为Image1，左边界（Left属性）设为360，点击Picture属性在弹出的加载图片对话框中将Duck.bmp图片文件打开即实现加载功能。画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”、“Command2”，标题（Caption属性）分别设为“移动”、“复位”。

单击“移动”按钮：

Private Sub Command1_Click()

Image1.Left = Image1.Left + 10

End Sub

单击“复位”按钮：

Private Sub Command2_Click()

Image1.Left = 360

End Sub

二（1）添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为3000。

在命令按钮数组的Private Sub Cmd_Click(Index As Integer)事件过程中

1) 将语句

'If Index = ? Then

改为

If Index = 2 Then

2) 将语句

'Timer1.Enabled = ?

改为

Timer1.Enabled = True

在计时器的Private Sub Timer1_Timer()事件过程中

1) 将语句

'Select Case ?

改为

Select Case flag

二（2）在窗体的Private Sub Command2_Click()事件过程中1) 将语句

'If Len(s) = ? Then

改为

If Len(s) = 0 Then

2) 将语句

'If Text1.? = 0 Then

改为

If Text1.SelLength = 0 Then

3) 将语句

'x = ?

改为

x = LCase(t)

4) 将语句

'? = Str(m)

改为

Text2.Text = Str(m)

三单击“素数”按钮：

Private Sub Command2_Click()

Dim b(100) As Integer

num = 0

If Len(Text1.Text) = 0 Then

MsgBox "请先执行“读数据”功能！"

Else

'考生编写(功能：生成存放素数的数组b )

'注意：请务必将数组b 的元素个数存入变量num 中

For i = 1 To 100

flag = 0

For j = 2 To a(i) - 1

If a(i) / j = Fix(a(i) / j) Then

flag = 1

Exit For

End If

Next

If flag = 0 Then

num = num + 1

b(num) = a(i)

End If

Next

'以下程序段将b 数组的内容显示在Text2中

For i = 1 To num

Text2.Text = Text2.Text + Str(b(i)) + Space(2)

Next i

End If

End Sub

第六十三套

一（1）画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空，宽（Width属性）设为1800，点击Font属性在弹出的字体对话框中将字号设为“三号”，MaxLength属性设为6。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“文本框练习”。

一（2）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，AutoSiz属性设为True，点击Font属性在弹出的字体对话框中将字体设为“宋体”，字号设为“12”。画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”和“Command2”，标题（Caption属性）分别设为“放大”和“还原”。

单击“放大”按钮：

Private Sub Command1_Click()

Label1.FontSize = Label1.FontSize + 2

End Sub

单击“还原”按钮：

Private Sub Command2_Click()

Label1.FontSize = 12

End Sub

二（1）添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为1000。

在命令按钮数组的Private Sub Cmd_Click(Index As Integer)事件过程中

1) 将语句

'Select Case ?

改为

Select Case Index

2) 将语句

'Timer1.Enabled = ?

改为

Timer1.Enabled = True

3) 将语句

'Cmd(0).Enabled = ?

改为

Cmd(0).Enabled = False

在计时器的Private Sub Timer1_Timer()事件过程中

1) 将语句

'If t(3) = ? Then

改为

If t(3) = 60 Then

2) 将语句

'Text( ? ).Text = t(i)

改为

Text(i - 1).Text = t(i)

二（2）添加一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“所有行中最大数的平均值为”。画一个文本框控件，通过其属性窗口将名称设为Text2，文本内容（Text属性）设为空。

单击“计算”按钮：

Private Sub Command2_Click()

If Len(Text1) = 0 Then

MsgBox "请先执行“读数据”功能！"

Else

For i = 1 To 20

Max = a(i, 1)

For j = 2 To 5

If a(i, j) > Max Then Max = a(i, j)

Next j

s = s + Max

Next i

Avg = s / 20

Text2 = Avg

End If

End Sub

三添加一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“同时含有字母t、h、e 的单词个数为”。画一个文本框控件，通过其属性窗口将名称设为Text2，文本内容（Text属性）设为空。

在命令按钮的Private Sub Command2_Click()事件过程中

1) 将语句

'If Len(s) = ? Then

改为

If Len(s) = 0 Then

2) 将语句

'If ? <> " " Then

改为

If c <> " " Then

3) 将语句

'? = LCase(t)

改为

x = LCase(t)

4) 将语句

'm = ?

改为

m = m + 1

第六十二套

一（1）画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“变宽”。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“改变按钮大小”。

单击“变宽”按钮：

Private Sub C1_Click()

C1.Width = C1.Width + 100

End Sub

一（2）画一个形状控件，通过其属性窗口将名称设为Shape1。画一个列表框控件，通过其属性窗口将名称设为L1，向列表框中添加项目（List属性），添加的项目分别为“1”、“2”、“3”、“4”和“5”，每个项目为一行。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“图形控件”。

单击列表框中的某一项（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub L1_Click()

Shape1.Shape = L1.Text

End Sub

二（1）在窗体的Private Sub Command1_Click()事件过程中，

1) 将语句

'Call ?

改为

Call calc(i)

2) 将语句

'Label2.Caption = ?

改为

Label2.Caption = Option1(i).Caption

在Private Sub calc(c As Integer)过程中，

1) 将语句

'x = ?

改为

x = Val(Text1.Text)

2) 将语句

'If ? <> 0 Then

改为

If i Mod 2 <> 0 Then

3) 将语句

'Label3.Caption = ?

改为

Label3.Caption = result

二（2）在窗体的Private Sub Command2_Click()事件过程中1) 将语句

'Timer1.Enabled = ?

改为

Timer1.Enabled = 0

在窗体的Private Sub Form_Load()事件过程中

1) 将语句

'Timer1.Interval = ?

改为

Timer1.Interval = 500

在窗体的Private Sub Timer1_Timer()事件过程中

1) 将语句

'If HScroll1.Left >= ? Then

改为

If HScroll1.Left >= Form1.Width Then

2) 将语句

'Picture1.Left = ?

改为

Picture1.Left = 0

三单击“统计”按钮：

Private Sub Command1_Click()

Text1.Text = n

Sum = 0

count1 = 0

count2 = 0

For i = 1 To n

Sum = Sum + arr(i)

If arr(i) < 60 Then

count1 = count1 + 1

Else

count2 = count2 + 1

End If

Avg = Sum / n

Next

Text2.Text = Int(Avg + 0.5)

Text3.Text = count1

Text4.Text = count2

End Sub

第六十一套

一（1）画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“改变颜色”。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“改变窗体背景色”。

单击“改变颜色”按钮：

Private Sub C1_Click()

Form1.BackColor = &HFF&

End Sub

一（2）画一个形状控件，通过其属性窗口将名称设为Shape1，形状（Shape属性）设为3。画一个列表框控件，通过其属性窗口将名称设为List1，向列表框中添加项目（List 属性），添加的项目分别为“1”、“2”、“3”、“4”和“5”，每个项目为一行。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“图形控件”。

单击列表框中的某一项（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub List1_Click()

Shape1.FillStyle = List1.Text

End Sub

二（1）在窗体的Private Sub Command1_Click()事件过程中

1) 将语句

'If ? = True Then

改为

If Option1.Item(i) = True Then

2) 将语句

'y = val(Option1(i).?)

改为

y = Val(Option1(i).Caption)

在Private Sub calc(y As Integer)过程中，

1) 将语句

'Do While i <= ?

改为

Do While i <= 5

2) 将语句

'List1.AddItem ?

改为

List1.AddItem x

二（2）在窗体的Private Sub Form_Load()事件过程中1) 将语句

'Timer1.Interval = ?

改为

Timer1.Interval = 500

在窗体的Private Sub Timer1_Timer()事件过程中1) 将语句

'VScroll1.Value = ?

改为

VScroll1.Value = Picture1.Top

2) 将语句

'Picture1.Top = ?

改为

Picture1.Top = 0

三单击“统计”按钮：

Private Sub Command1_Click()

Text1.Text = n

count1 = 0

count2 = 0

count3 = 0

count4 = 0

count5 = 0

count6 = 0

For i = 1 To n

y = Int(arr(i) / 10)

Select Case y

Case 1, 2, 3, 4, 5

count1 = count1 + 1

Case 6

count2 = count2 + 1

Case 7

count3 = count3 + 1

Case 8

count4 = count4 + 1

Case 9, 10

count5 = count5 + 1

End Select

Next

Text2.Text = count1

Text3.Text = count2

Text4.Text = count3

Text5.Text = count4

Text6.Text = count5

End Sub

第六十套

一（1）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“列表框的使用”。画一个列表框控件，通过其属性窗口将名称设为List1，向列表框中添加项目（List属性），添加的项目分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，每个项目为一行，多项选择（MultiSelect属性）设为1。

一（2）画一个图像框控件，通过其属性窗口将名称设为Image1，高（Height属性）设为2000，宽（Width属性）设为3000，Stretch属性设为True。画二个命令按钮控件，通过其属性窗口将名称分别设为Cmd1和Cmd2，标题（Caption属性）分别设为“显示图片”和“隐藏图片”。

单击“显示图片”按钮：

Private Sub Cmd1_Click()

Image1.Picture = LoadPicture("图片.jpg")

End Sub

单击“隐藏图片”按钮：

Private Sub Cmd2_Click()

Image1.Picture = LoadPicture("")

End Sub

二（1）单击“统计”按钮：

Private Function is_square(x As Integer) As Boolean

flag = False

For m = 1 To Sqr(x)

If x = m ^ 2 Then

flag = True

Exit For

End If

Next m

is_square = flag

End Function

Private Sub Command2_Click()

Dim max As Integer

Dim num As Integer

max = 0

num = 0

For k = 1 To 100

If is_square(a(k)) Then

num = num + 1

If a(k) > max Then

max = a(k)

End If

End If

Next k

Text1.Text = max

Text2.Text = num

End Sub

二（2）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“请输入编号”。画一个文本框控件，通过其属性窗口将名称设为Text1，文本框的初始内容（Text属性）设为空。

在窗体的Private Sub Form_Load()事件过程中，

1) 将语句

'? "a0001"

改为

List1.AddItem "a0001"

在窗体的Private Sub Command1_Click()事件过程中

1) 将语句

'For i = 0 To ?

改为

For i = 0 To List1.ListCount - 1

2) 将语句

'List1.ListIndex = ?

改为

List1.ListIndex = i

3) 将语句

'? Text1.Text

改为

List1.AddItem Text1.Text

在窗体的Private Sub Command2_Click()事件过程中

1) 将语句

'?

改为

End

三画二个命令按钮控件，通过其属性窗口将名称分别设为Command1和Command2，标题（Caption属性）分别设为“产生数组”和“查找”。

在窗体的Private Sub Command1_Click()事件过程中

1) 将语句

2018年全国计算机一级考试题库及答案

2018年全国计算机一级考试题库及答案 1、计算机软件系统包括[ C ]。 A)程序和数据 B)编辑软件和应用软件 C)系统软件和应用软件 D)数据库软件和工具软件 2、计算机之所以能按照人们的意志自动进行工作，最直接的原因是采用了[ B ]。 A)二进制数值 B)存储程序思想 C)程序设计语言) D)高速电子元件 3、RAM的特点是[ A ]。 A)断电后，存储在其内的数据将会丢失B)存储在其内的数据将永久保存 C)用户只能读出数据，但不能写入数据D)容量大但存取速度慢 4、计算机病毒破坏的主要对象是[ D ]。 A)磁盘片 B)磁盘驱动器 C)CPU D)程序和数据 5、在计算机技术指标中，MIPS用来描述计算机的[ A ]。 A)运算速度 B)时钟频率 C)存储容量 D)字长 6、用八位二进位可以表示最大的十进制数为[ B ]。 A)256 B)255 C)1024 D)512 7、汉字国标码规定，每个汉字用[ B ]个字节表示。 A)1 B)2 C)3 D)4 8、在同一时刻，Windows系统中的活动窗口可以有[ D ]。 A)2个 B)255个 C)任意多个，只要内存足够 D)唯一一个 9、以下关于“回收站”的叙述中，不正确的是[ C ]。 A)放入回收站的信息可以恢复 B)回收站的容量可以调整 C)回收站是专门用于存放从软盘或硬盘上删除的信息

D)回收站是一个系统文件夹 10、以下关于“剪贴板”的说法中，不正确的是[ B ]。 A)剪贴板是内存的一块区域 B)剪贴板是硬盘的一块区域 C)剪贴板只可保留最后一次剪切或复制的内容 D)进行剪切或复制操作后重新启动计算机，剪贴板中的内容会消失 11.Excel的主要功能是( C )。 A. 表格处理，文字处理，文件管理 B. 表格处理，网络通讯，图表处理 C. 表格处理，数据库管理，图表处理 D. 表格处理，数据库管理，网络通讯 12.将十进制50转化为二进制数是( D )。 A. 110110 B. 101010 C. 110001 D. 110010 13.在Excel中，选定单元格后单击“复制”按钮，再选中目的单元格后单击“粘贴”按钮，此时被粘贴的是源单元格中的( B )。 A. 格式和公式 B. 全部 C. 数值和内容 D. 格式和批注 14.外存储器中的信息，必须首先调入( C )，然后才能供CPU使用。 A. 控制器 B. ROM C. RAM D. 运算器 15.关于Word中的文本框，下列说法(C )是不正确的。 A. 文本框可以做出冲蚀效果 B. 文本框可以做出三维效果 C. 文本框只能存放文本，不能放置图片 D. 文本框可以设置底纹 16.在Excel中，下列说法( D )是不正确的。 A. 可以对建立的图表进行缩放和修改 B. 可将单元格中的数据以各种统计图表的形式显示 C. 建立图表首先要在工作表中选取图表的数据区 D. 工作表中的数据源发生变化时，图表中的对应数据不能自动更新 17.在Word的"字体"对话框中，不可设定文字的(D )。

公安机关基本级执法资格考试非专业警种试题

2017年基本级执法资格考试非专业警种试题（1） 一、判断题（每题1分，共20分） 1、人民警察的任务包括保护公民的人身安全、人身自由和合法财产。(√) 2、法律明文规定为犯罪行为的，依照法律定罪处刑；法律没有明文规定为犯罪行为的，不得定罪处刑。(√) 3、正当防卫不能明显超过必要限度，是指不能给不法侵害人造成伤亡。( x ) 4、为了犯罪，制造条件的，是犯罪预备。(√) 5、犯罪以后自动投案，如实供述自己的罪行，是自首。(√) 6、犯罪嫌疑人不能提供证明自己无罪的证据时，应当确定其有罪。( ×) 7、对管辖有争议或者情况特殊的刑事案件，可以由共同的上级公安机关指定管辖。( √) 8、公安机关负责人、侦查人员不得接受当事人及其委托人的请客送礼，不得违反规定会见当事人及其委托人。违反规定的，应当依法追究法律责任。当事人及其法定代理人有权要求他们回避。（√） 9、视听资料属于证据的种类之一。（√） 10、在中华人民共和国领域内发生的违反治安管理行为，均适用《治安管理处罚法》。（X ） 11、违反治安管理的行为对他人造成损害的，行为人或者其监护人应当依法承担民事责任。 ( √) 12、赌资，既包括通过赌博赢取的款物，也包括在赌博活动中用作赌注的款物、换取筹码的款物，均应当予以收缴。( √) 13、已满十四周岁不满十八周岁的人违反治安管理的，应从轻或者减轻处罚。 ( √) 14、人民警察使用警械和武器前，应当命令在场无关人员躲避；在场无关人员应当服从人民警察的命令，避免受到伤害或者其他损失。( √) 15、秉公执法是公平正义理念对政法工作提出的最基本的要求。（√） 16、当处于同一位阶的规范性法律文件在某个问题上有不同规定时，可以依据特别法优于一般法的原则适用法律。( √) 17、中华人民共和国的一切权力属于公民。（×） 18、根据《国家赔偿法》的有关规定，受害的公民死亡，其继承人和其他有扶养关系的亲属有权要求赔偿。（√） 19、人民警察是武装性质的国家治安行政力量和刑事司法力量，承担依法预防、制止和惩治违法犯罪活动，保护人民，服务经济社会发展，维护国家安全，维护社会治安秩序的职责。（√） 20、治安、交通、户政、出入境等公安行政管理法律、法规的执行情况不属于督察机构现场督察的范围。（×） 二、单项选择题（每题1分，共30分） 1、下列是人民警察法规定的人民警察的任务是（D ） A.维护企业的经济秩序 B.维护机关、企事业组织的经济秩序 C.参加经济建设 D.保护公共财产 2、法律没有明文规定为犯罪行为的，( C )。 A．可以根据具体情况进行特别处理 B．可以比照类似的条文定罪处刑 C．不得定罪处刑

汉语考试HSK6级阅读试题

HSK 6 级真题（2013年8月） 二、阅读 第一部分 第51-60题：请选出有语病的一项。 51．A请严格按照使用说明来操作机器。 B您放心，我们会尽快给您一个答复的。 C我的抽屉里堆满了旅游时买了各种纪念品。 D第17届中国国际软件博览会将在本周四举办。 52．A彝族的传统节日以火把节最为隆重。 B这项活动的意义，在于呈现人们的环保意识。 C地球是迄今为止所发现的唯一适合人类生存的行星。 D镇江恒顺香醋始创于1840年，为中国四大名醋之一。 53．A高原地区空气稀薄，紫外线十分强烈。 B真诚待人是人际关系得以维持和发展的保证。 C感谢您的来电，请您稍后进行评价对本次服务，谢谢。 D茯苓是一种无色无味的中草药材，具有养颜和滋补的功效。 54．A针对这一突发事件，公司及时采取了应对措施。 B人要学会控制自己的欲望，而不应当把欲望所支配。 C空气、水、能源和土地，是人类赖以生存的基本要素。 D他对昆虫进行了长达30年的观察，揭开了昆虫世界的许多奥秘。55．A他们离开大城市后，在一个宁静的乡村定居了下来。 B随着数码相机的日益普及，传统的胶卷相机正逐渐退出市场。 C接受了4年正规的声乐训练后，他对声音的驾驭更得心应手了。 D有时我们难免要对生活做出妥协，而且一些基本原则永远不能放弃。

56．A他将这次演唱会的门票收入全部捐献一家儿童医院。 B对艺术的理解虽因人而异，但真正的艺术品总能得到一致的赞许。 C她戴着一顶别致的帽子，穿着一件蓝色的连衣裙，看上去漂亮极了。 D由于空气对光的散射作用，日出和日落前后，天边常会出现绚丽的彩霞。 57．A俗话说聚沙成塔，看似不起眼的小工作可能正是大事业的开始。 B那一刻，观众席上鸦雀无声，所有人都被他的精彩表演吸引住了。 C工作间隙做些转颈、后仰的简单运动，可以有效缓解颈部肌肉的疲劳。 D现代医学研究表明，22时到凌晨4时是人体免疫系统、造血系统最旺盛。 58．A新春佳节，每个家家户户张贴大红春联，给节日增添了不少欢乐祥和的气氛。 B依托于电子商务平台，家具行业有了新的营销模式，满足了大批年轻人的购买需求。 C时间像倒在掌心里的水，无论你摊开还是握紧，它总会从指缝间一点一滴地流淌干净。 D天然的玛瑙冬暖夏凉，人工合成的则会随外界温度的变化而变化，天热它也热，天凉它也凉。 59．A电子书不需要用纸，比较环保，且携带方便，容量大，因此深受人们的喜爱。 B这部影片生动地展现了帝企鹅这一可爱而又坚强的物种与严酷的自然环境做斗争的过程。 C幸运之神的降临往往是因为你多坚持了一会儿，多迈出了几步，多找了一条路，多拐了一个弯。 D“口头禅”是一个人的习惯用语。它的形成跟使用者的性格、生活经历有关系很大，可以算是一个人的标志。 60．A人类从河流、湖泊、含水土层和湿地取来的水，74%用于农业，18%用于工业， 8%用于生活。 B蜘蛛结网可能逮不到昆虫，但蜘蛛不结网就永远逮不到昆虫。努力可能没有回报，但不努力一定没有回报。 C香菜富含香精油，香气浓郁，但香精油极易挥发，且经不起长时间加热，所以香菜最好在食用前加入，以保留其香气。 D海参全身的骨头多达2000万块儿，但这些骨头极小，用肉眼从来看不见，要在显微镜下放大几十倍甚至几百倍才能看见。

html,JavaScript,css试题库

一、HTML试题库 1、单选题 （1）下列哪个标签是定义标题的（A） A、h1 B、hr C、hw D、p （2）html中的注释标签是（C）* A、 <-- --> B、<--! --> C、 D、<-- --!> （3）…标签的作用是（D） A、斜体 B、下划线 C、上划线 D、加粗 （4）网页中的空格在html代码里表示为（B）* A、& B、  C、" D、< （5）定义锚记主要用到标签中的（A）属性。* A、name B、target C、onclick D、onmouseover （6）要在新窗口中打开所点击的链接，实现方法是将标签的target属性设为（A）* A、_blank B、_self C、_parent D、_top （7）下列代表无序清单的标签是（A）** A、

…
• …