2013vb题库
*****第01套简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请添加
一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1、2，
标题依次为"飞机"、"火车"、"汽车"，再添加一个名称为Text1的文本框。窗体文件中已
经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改
为正确的内容，使得在程序运行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我
坐飞机去"或"我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车去"，如图所示。
注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
Private Sub Op1_Click(Index As Integer)
Dim a As String, b As String, c As String
a = "我坐"
b = "我开"
' Select Case ? ***** Index ***** Case 0
Text1.Text = a + Me.Op1(0).Caption + "去"
Case 1
' Text1.Text = ? + Me.Op1(1).Caption + "去" ***** a *****
Case 2
Text1.Text = b + Me.Op1(2).Caption + "去"
End Select
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上添加两个框架控件，名称分别为F1、F2，标题分别为"性别"、"身份"；在F1中添加两个单选按钮控件Op1、Op2，标题分别为"男"、"女"；在F2中添加两个单选按钮控件Op3、Op4，标题分别为"学生"、"教师"；再添加一个命令按钮，名称为C1，标
题为"确定"。如图所示。请编写适当的事件过程，使得在运行时，在F1、
F2中各选一个单选按钮，然后单击"确定"按钮，就可以按照下表把结果
显示在文本框中。
性别身份在文本框中显示的内容
男学生我是男学生
男教师我是男教师
女学生我是女学生
女教师我是女教师
最后把修改后的文件以原来的文件名存盘。
注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。
… ***** 请考生编写程序*****
If op1 and op3 then Text1.Text=”我是男学生”
If op1 and op4 then Text1.Text=”我是男教师”
If op2 and op3 then Text1.Text=”我是女学生”
If op2 and op4 then Text1.Text=”我是女教师”
*****第01套综合应用题
以下数列：1，1，2，3，5，8，13，21，…，的规律是从第3个数开始，每个数都是其
前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，
如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单
击"计算"按钮，则计算出上述数列的第n项的值，并在文本框中显示，n是选中
的单选按钮后面的数值。(提示：因计算结果较大，应使用长整型变量。)
注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击"计算"按钮获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()
… ***** 请考生编写程序*****
Dim a(35) As Long
If op1(0) then n=30
If op1(1) then n=33
If op1(2) then n=35
a(1) = 1
a(2) = 1
For i = 3 To n
a(i) = a(i - 1) + a(i - 2)
Next
Text1.Text = a(n)
End Sub
*****第02套简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，
其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为"发射"，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求：
①设置Timer1的属性，使其在初始状态下不计时；
②设置Timer1的属性，使其每隔0.1秒调用Timer事件过程一次。
③去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击"发射"按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动，如图所示。
注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Private Sub C1_Click()
'Timer1.Enabled = ? ***** True *****
End Sub
Private Sub Timer1_Timer()
Static a%
a = a =+1
'If P1.Top > P2.Top ＋P2.? Then ***** Height *****
P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height
Else
'Timer1.Enabled = ? ***** False *****
End If
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，运行情况如图所示。程序的功能是计算下列
表达式的值：
其中的N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为"计算"、名称为Command1的命令按钮，则计算表达式的值z，并将计算结果显
示在名称为Label1的标签中。
在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求
去掉程序中的注释符，把程序中的?改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符，而应使用函数xn进行幂运算。程序至少运行一次，按照下图输入数据，使x=10，N=5，单击"计算"按钮，计算z的值，并将结果显示在标签Label1中，否则没有成绩。最后，程序按原文件名存盘。
Private Function xn(a As Single, m As Integer)
Dim i As Integer
tmp = 1
For i = 1 To m
'tmp = ? ***** tmp*a *****
Next
'xn = ? ***** tmp *****
End Function
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim t As Single
Dim s, x As Single
n = Val(Text1.Text)
x = Val(Text2.Text)
z = 0
For i = 2 To n
t = x + i
'z = z +？ ***** xn(t,i) *****
Next
'Label1.Caption = ? ***** z *****
Call SaveResult
End Sub
Private Sub SaveResult()
Open App.Path & "\out4.dat" For Output As #1
Print #1, Label1.Caption
Close #1
End Sub
*****第02套综合应用题
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件
中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素
数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签
Label4和Label3中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。
注意：不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
Private arr(100) As Integer
Public Function prime(x As Integer)
k = Int(Sqr(x) + 5)
For i = 2 To k
If x Mod i = 0 Then
prime = False
Exit Function
End If
Next
prime = True
End Function
Private Sub Command1_Click()
Open App.Path & "\in5.txt" For Input As #1
For i = 1 To 40
Input #1, arr(i)
Next
Close #1
End Sub
Private Sub Command2_Click()
… ***** 请考生编写程序*****
Dim a As Integer
Dim b As Integer
a = 0
b = arr(1)
For i = 1 To 40
If prime(arr(i)) Then a = a + 1
Label3.Caption = a
Next
For i = 1 To 40
If prime(arr(i)) And arr(i) <= b Then b = arr(i)
Label4.Caption = b
Next
'***** 考生编写程序结束*****
Open App.Path & "\out5.txt" For Output As #1
Print #1, Label3.Caption, Label4.Caption
Close #1
End Sub
*****第03套简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：
①单击"读数据"按钮，则将考生文件夹下in3.dat文件中的100个0到999之间
的整数读入到数组a中；
②单击"计算"按钮，则找出这100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Text1、Text2中。(注：当一个数的值等于该数中的各位数字的立方和时，
此数被称为水仙花数。如：
333
153153
=++,所以153就是一个水仙花数)
在窗体文件中已经给出了全部控件(如图所示)和"读数据"命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写"计算"命令按钮的事件过程。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行"计算"，并且必须通过单击窗体右上角的"关闭"按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
Dim a(100) As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in3.dat" For Input As #1
For k = 1 To 100
Input #1, a(k)
Next k
Close #1
End Sub
Private Sub Command2_Click()
'***** 需考生编写的程序 *****
Dim i As Integer
Dim max As Integer, min As Integer
max = -1
min = 1000
For i = 1 To 100
If isnarc(a(i)) Then
If max <= a(i) Then max = a(i)
If min >= a(i) Then min = a(i)
End If
Next i
Text1 = max
Text2 = min
End Sub
'以下Function 过程用于判断某数是否为水仙花数
Function isnarc(p As Integer)
x = Fix(p / 100)
y = Fix((p - x * 100) / 10)
z = p - x * 100 - y * 10
If p = x ^ 3 + y ^ 3 + z ^ 3 Then
isnarc = True
Else
isnarc = False
End If
End Function
Private Sub Form Unload(Cancel As Integer)
Open App.Path & "\out3.dat" For Output As #1
Print #1, Val(Text1.Text)
Print #1, Val(Text2.Text)
Close #1
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框，名称为cb1，
并输入三个列表项："3"、"7"、"11"(列表项的顺序不限，但必须是这3个数字)；
添加一个名为Text1的文本框；再添加一个标题为"计算"、名称为C1的命令按
钮。如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选
定一个数字后，单击"计算"按钮，则计算5000以内能够被该数整除的所有数之
和，并放入Text1中。最后，按原文件名存盘。
提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
Private Sub C1_Click()
'***** 需考生编写的程序 *****
Dim sum As Long
Dim n As Integer
Dim i As Integer
n = Val(Cb1.Text)
For i = n To 5000
If i Mod n = 0 Then
sum = sum + i
End If
Next i
Text1.Text = sum
End Sub
*****第03套综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码。请完成以下工作：
①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用。窗体如图所示；
②建立下拉式菜单，如下表所示:
标题名称
编辑Edit
剪切Cut
复制Copy
粘贴Paste
③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。以便实现如下功能：当光标所在的文件框中无内容时，"剪切"、"复制"不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则"粘贴"不
能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。
Dim which As Integer
Private Sub copy_Click()
If which = 1 Then
Text3.Text = Text1.Text
ElseIf which = 2 Then
Text3.Text = Text2.Text
End If
End Sub
Private Sub cut_Click()
If which = 1 Then
Text3.Text = Text1.Text
Text1.Text = ""
ElseIf which = 2 Then
Text3.Text = Text2.Text
Text2.Text = ""
End If
End Sub
Private Sub edit_Click()
'If which = ? Then ***** 1 *****
If Text1.Text = "" Then
cut.Enabled = False
Copy.Enabled = False
Else
cut.Enabled = True
Copy.Enabled = True
End If
'ElseIf which = ? Then ***** 2 *****
If Text2.Text ="" Then
cut.Enabled = False
Copy.Enabled = False
Else
cut.Enabled = True
Copy.Enabled = True
End If
End If
If Text3.Text = "" Then
Paste.Enabled = False
Else
Paste.Enabled = True
End If
End Sub
Private Sub paste_Click()
If which = 1 Then
' Text1.Text = ? ***** Text1.Text+Text3.Text ***** ElseIf which = 2 Then
' Text2.Text = ? ***** Text2.Text+Text3.Text ***** End If
End Sub
Private Sub Text1_GotFocus() '本过程的作用是：当焦点在Text1中时，which = 1
which = 1
End Sub
Private Sub Text2_GotFocus() '本过程的作用是：当焦点在Text2中时，which = 2
which = 2
End Sub
*****第04套简单应用题
（1）在名称为Form1的窗体上添加一个名称为Label1、标题为"添加项目："的标
签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的
下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两
个命令按钮，名称分别为Command1、Command2，其标题分别为"添加"、"统计"。
在程序运行时，向Text1中输入字符，单击"添加"按钮后，则将Text1中的内容作
为一个列表项被添加到组合框的列表中；单击"统计"按钮，则在窗体空白处显示
组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。
注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。
'***** 需考生编写的程序*****
Private Sub Command1_Click()
Combo1.AddItem Text1
End Sub
Private Sub Command2_Click()
Print Combo1.ListCount
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图所示。该程序用来对
在上面的文本框中输入的英文字母串(称为"明文")加密，加密结果(称为"密文")
显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击"加密"按钮后，
根据选中的单选按钮后面的数字n，将"明文"中的每个字母改为它后面的第n个字
母("z"后面的字母认为是"a"，"Z"后面的字母认为是"A" )，如图所示。窗体中已
经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?
改为正确的内容。
注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
Private Sub Command1_Click()
Dim n As Integer, k As Integer, m As Integer
Dim c As String, a As String
For k = 0 To 2
If Op1(k)．Value Then
'n = Val(Op1(k). ? ) ***** Caption *****
End If
Next k
m = Len(Text1.Text)
a = ""
'For k = 1 To ? ***** m *****
' c = Mid$(Text1.Text, ? , 1) ***** k *****
c = String(1, Asc(c) + n)
If c > "z" Or c > "Z" And c < "a" Then
c = String(1, Asc(c) - 26)
End If
'？= a + c ***** a *****
Next k
Text2.Text = a
End Sub
*****第04套综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称分别为Text1、
Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别
为"取数"、"排序"、"存盘"。"取数"按钮的功能是将考生文件夹下的in5.dat文件中的
50个整数读到数组中，并在Text1中显示出来；"排序"按钮的功能是对这50个数按升
序排序，并显示在Text2中；"存盘"按钮的功能是把排好序的50个数存到考生目录下
的out5.dat文件中。如图所示。在窗体中已经给出了全部控件和部分程序代码，要求
阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写"排序"按钮
的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改
控件的属性。最后将修改后的文件按原文件名存盘。
Dim a(50) As Integer
Private Sub C1_Click()
Dim k As Integer, ch As String
Open "in5.dat" For Input As #1
ch = ""
For k = 1 To 50
'Input #1, ? ***** a(k) *****
ch = ch + Str(a(k)) + " "
Next k
Close #1
'Text1.Text = ? ***** ch *****
End Sub
Private Sub C2_Click()
' ***** 需考生编写的程序*****
Dim t As Integer
Dim i As Integer
Dim j As Integer
Dim ch As String
ch = ""
For i = 50 To 2 Step -1
For j = 1 To 49
If a(j) > a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
For j = 1 To 50
ch = ch + Str(a(j)) + ""
Next j
Text2.Text = ch
End Sub
Private Sub C3_Click()
Open "out5.dat" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
*****第05套简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，在
窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框，如图1所示。
编写窗体的MouseDown事件过程。程序运行后，如果用鼠标左键单击窗体，则
从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右
键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行
情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1.Text = InputBox("请输入要添加的项目")
'List1.AddItem ? ***** Text1.Text ***** End If
If Button = 2 Then
Text1.Text = InputBox("请输入要删除的项目")
'For i = 0 To ? ***** List1.ListCount-1 *****
'If List1.List(i) = ? Then ***** Text1.Text *****
'List1.RemoveItem ? ***** i *****
End If
Next i
End If
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在四个文本框中各输入一个整数，然后单
击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上
述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存
盘。
Option Base 1
Private Function FindMin(a() As Integer)
Dim Start As Integer
Dim Finish As Integer, i As Integer
'Start = ？(a) ***** LBound *****
'Finish = ？(a) ***** UBound *****
''Min =？(Start) ***** a *****
For i = Start To Finish
'If a(i) ? Min Then Min = ? ***** < ***** ***** a(i) ***** Next i
FindMin = Min
End Function
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
'M = FindMin(？) ***** arr2 *****
Print "最小值是："；M
End Sub
*****第05套综合应用题
在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为"读入数据"、"计算并输出"和"存盘")，然后再添加一个文本框，名称为Text1，MultiLine属性设置为True，scrollBars属性设置为2(如图所示)。程序运行后，如果执行"读入数据"命令，则
读入考生文件夹下datain1.txt文件中的100个整数，放入一个数组中，数组的下
界为1；如果单击"计算并输出"按钮，则把该数组中下标为偶数的元素在文本
框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击
"存盘"按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以
把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定
的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sjt5.vbp，窗体文件名仍保存为sjt5.frm。
' ***** 需考生编写的程序 *****
Dim sum As Integer
Private Sub Calc_Click()
Text1.Text = ""
For i = 2 To 100 Step 2
Text1.Text = Text1.Text & Arr(i) & Space(5)
sum = sum + Arr(i)
Next i
Print sum
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", sum
End Sub
*****第06套简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生30个0~1000
的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮（名称为Command1，标题为“输出最小值”），即可求出其最小值，并在窗体上显示出来（如图所示）。这
个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Option Base 1
Private Sub Command1_Click( )
Dim arrN(30) as Integer
Dim Min as Integer
Randomize
For i=1 to 30
…arrN(i)=Int(Rnd * ?) *** 1000 ***
Next i
…?=arrN(1) *** Min ***
For i=2 to 30
…If ? Then *** Min>arrN(i) ***
Min=arrN(i)
End if
Next i
Print Min
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0~1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：
请勿改动程序中的任何内容，只在Function Fun( )和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
Sub SaveData( )
Open App.Path & “\” & “outtxt.txt” For Output As #1
Print #1, Text1.Text
Close #1
End sub
…*** Function Fun( ) 请考生编写的程序***
Dim s As Integer, i As Integer
For i = 0 To 1000
If i Mod 7 <> 0 Then
s = s + 1
End If
Next i
Fun = s
***End Function***
Private Sub Command1_click( )
D=Fun( )
Text1.Text=d
SaveData
End Sub
*****第06套综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作：
在名称为Form1的窗体上画二个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”（如图所示）。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadData1和ReadData2过程读入datain1.txt 和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中（即：第一个数组的第n个元素减去第二个数组的第n个元素，其结果作为第三个数组的第n个元素。这里的n为1、2、。。。。。、20），最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData 过程将所求得的和存入考生文件夹下的dataout.txt文件中。
注意：考生不得修改窗体文件中已经存在的程序，且必须执行此程序一次，最后把修改后的文件以原来的文件名存盘。
Option Base 1
Dim Arr1(20) As Integer
Dim Arr2(20) As Integer
Sub ReadData1( )
Open App.Path & “\” & “datain1.txt” For Input as #1
For i=1 to 20
Input #1,Arr1(i)
Next i
Close #1
End Sub
Sub ReadData2( )
Open App.Path & “\” & “datain2.txt” For Input as #1
For i=1 to 20
Input #1,Arr2(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As string, Num As Integer)
Open App.Path & “\” & Filename For Output As #1
Print #1,Num
Close #1
End sub
…***** 请考生编写的程序*****
Private Sub C1_Click()
Call ReadData1
Call ReadData2
End Sub
Private Sub C2_Click()
Dim Arr3(1 To 20) As Integer
Dim sum As Integer
sum = 0
For i = 1 To 20
Arr3(i) = Arr1(i) - Arr2(i)
sum = sum + Arr3(i)
Next i
Print "sum="; sum
WriteData "dataout.txt", sum
End Sub
*****第07套简单应用题
（1）在名称为Form1的窗体上添加一个名称为L1的标签，标题为"口令"；添加两个文本框，名称分别为Text1、Text2，初始内容为空；再添加三个命令按钮，名称分别为C1、C2、C3，标题分别为"显示口令"、"隐藏口令"、"复制口令"，在程序开始运行时，向Text1
中输入的所有字符，都显示为"*"，单击"显示口令"按钮后，在Text1中显示所
有字符，再单击"隐藏口令"后，Text1中的字符不变，但显示的都是"?"，单击
"复制口令"后，把Text1中的实际内容复制到Text2中，如图所示。
要求：
①在属性窗口中，将窗体的标题改为"口令窗口"。
②建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。
存盘时，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。
' ***** 需考生编写的程序*****
Private Sub C1_Click()
Text1.PasswordChar = ""
End Sub
Private Sub C2_Click()
Text1.PasswordChar = "?"
End Sub
Private Sub C3_Click()
Text2.Text = Text1.Text
End Sub
（2）在名称为Form1的窗体上添加一个名称为P1的图片框，并利用属性窗口把考生文件夹
中的图标文件Open.ico放到图片框中；再添加一个通用对话框控件，
名称为CD1，利用属性窗口设置相应属性，即打开对话框时：标题为"
打开文件"，文件类型为"Word文档"，初始文件夹为C盘根文件夹。再
编写适当的事件过程，使得程序在运行时，单击P1图片框，可以打开
上述对话框。程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为
sjt4.vbp，窗体文件名保存为sjt4.frm。程序中不得使用任何变量。
' ***** 需考生编写的程序*****
Private Sub P1_Click()
CD1.ShowOpen
End Sub
*****第07套综合应用题
（1）在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个命令按钮，标题分别是"读数据"和"统计"，请添加一个名称为Label1、标题为"回文的个数为"的标签和一个名称为
Text1，初始内容为空的文本框，如图所示。
程序功能如下：
①单击"读数据"按钮，则将考生文件夹下in5.dat文件的内容读到变量s中；
②单击"统计"按钮，则统计in5.dat文件(该文件中仅含由空格间隔开的字母串)中回文
的个数，并将统计的回文个数显示在Text1文本框内。(所谓回文是指顺读与倒读都一样的
字符串，如"recycer")"读数据"和"统计"按钮的Click事件过程已经给出，请完善foundhuiwen 过程的功能，实现上述程序功能。
注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
Function foundhuiwen(p As String)
' ***** 需考生编写的程序*****
If StrReverse(p) = p Then foundhuiwen = True
End Function
*****第08套基本操作题
（1）在名称为Form1标题为“选题”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框在选中状态下，运行时的窗体如图所示。请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文
件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1~100；画一个命令按钮，名称为C1，标题为“移动滚动框”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次（假定单击次数少于10次），滚动框向右移动10个刻度。运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
*****第08套简单应用题
（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为‘加粗’、‘斜体’、‘下划线’，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，
则进行菜单标题所描述的操作，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
M1_click( )
Text1.fontBold=true
M2_click( )
Text1.fontItalic=true
M3_click( )
Text1.fontUnderline=true
Text1_MouseDown( )
If button=2 then Popupmenu format
（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息（‘密码’框中显示‘*’字符），然后单击‘提交’按钮则弹出‘确认’对话框（即Form2窗体），并在对话框中显示输入的信息，如图2所示。单击‘确认’按钮则程序结束，单击‘重输’按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。要求：1）把Form1的标题改为‘注册’，把Form2的标题改为‘确认’；
2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）；
3）去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。
Private Sub C1_Click()
Dim k As Integer
' Form2. ? ***** show *****
Form2.Print Form1.L1.Caption; Form1.Text1
Form2.Print Form1.L2.Caption; Form1.Text2
Form2.Print Form1.L3.Caption; Form1.Text3
' Form2.Print Form1.Frame1. ? ; "："; *****caption*****
For k = 0 To 1
' If Form1.Op1( ? ).Value Then ***** k *****
Form2.Print Form1.Op1(k).Caption
End If
Next k
End Sub
Private Sub Form_Load()
' Text2. ? = "*" ***** passwordchar
*****
End Sub
*****第08套综合应用题
在考生目录下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为‘口令’和‘允许次数’；一个命令按钮C1，标题为‘确定’；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令（输入时，显示‘*’），无初始内容；Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在Text1中输入口令后，单击‘确定’，如果输入的是‘123456’则在Text1中显示‘口令正确’；如果输入其他内容，单击
‘确定’后，弹出如图所示的错误提示对话框，并且Text2中的数字减1.最多可输入
3次口令，若3次都输入错误，则禁止再次输入。
Private Sub C1_Click()
' If ? = "123456" Then ***** text1.text *****
Text1.Text = "口令正确"
' Text1.? = "" ***** passwordchar *****
Else
Text2.Text = Text2.Text - 1
' If Text2.Text > ? Then ***** 0 *****
MsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"
Else
MsgBox "3次输入错误，请退出"
' Text1.Enabled = ? ***** false *****
End If
End If
End Sub
*****第09套简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
Private Sub Command1_Click( )
Dim n As Integer
Cls
‘? =InputBox（“请输入一个整数”）***** n *****
Print “因子数＝”；fun(n)
End Sub
Function fun(m As Integer)
Dim s As Integer
S=0
For k=1 to Abs(m) / 2
‘If m Mod k=? Then ***** 0 *****
s=s+1
Print k
End If
Next k
‘？***** fun=s *****
End Function
（2）在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项（如图1所示），单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些城市的城市（如图2所示）。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
Private Sub Command1_Click( )
Dim k%
‘For k=List1.ListCount -1 to 0 ***** step -1 *****
If List1.Selecte(k)=True Then
‘List2.AddItem ? ***** List1.List(k) *****
‘List1.RemoveItem ? ***** k *****
End If
Next k
End Sub
Private Sub Command2_Click( )
Dim k%
Text1=“已经选中的城市有：“
For k=0 to List2.ListCount -1 Step 1
‘Text1=? & ““ & List2.List(k) ***** Text1.Text *****
Next k
End Sub
*****第09套综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
Dim x0 As Integer, y0 As Integer , a As Single , radius As Integer
radius=Shape1.Width / 2 ‘圆的半径
If Button=LEFT_BUTTON Then
x0=shape1.left + radius ‘圆心的x坐标
y0=shape1.top + radius ‘圆心的y坐标
If x=x0 Then
Stepy=Sgn(y-y0) * 50
‘Stepx=? ***** 0 *****
Else
a=(y-y0) / (x-x0) ‘斜率
stepx=sgn(x-x0) * 50
‘?=a * stepx ***** stepy *****
If abs(stepy) > abs(stepx) Then
Stepy=sgn(y-y0) * 50
Stepx=stepy / a
End if
End If
‘?=True ***** Timer1.Enabled *****
Else
‘?=False ***** Timer1.Enabled *****
End if
End Sub
Private Sub Timer1_Timer( )
‘Shape1.Move Shape1.Left + stepx , Shape1.Top + ? ***** stepy *****
End Sub
*****第10套简单应用题
（1）考生文件夹中有工程文件sjt3.vbp。窗体上有名称为Label1、标题为“标签控件”的标签；有一个名
称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中任一控件，则在标签Label2中显示所单击控件的标题内容（标题内容前有“单击”二字），下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
Private Sub Command1_Click()
'Call ShowName(？) ***** Command1 *****
End Sub
Private Sub Label1_Click()
'Call ShowName(？) ***** Label1 *****
End Sub
'Private Sub ShowName(c As ？) ***** Control *****
If TypeOf c Is CommandButton Then
Label2.Caption = "单击" & Command1.Caption
End If
If TypeOf c Is Label Then
'？= "单击" & Label1.Caption ***** Label2.Caption ***** End If
End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。其窗体上有一个由八个图片框控件组成的
控件数组、两个命令按钮及一个计时器控件，如图1所示。程序功能：
将计时器控件设置为每隔0.5秒触发一次。运行程序时，只显示下标为0的图片框控件数
组元素，其它图片框均不显示。单击“开始”按钮，数组中的每个图片框自左至右依次显
示，时间间隔为0.5秒，产生月亮从左向右移动的效果，如图2所示。月亮移到右端后再
从左端重新开始。单击“停止”按钮，月亮停止移动。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，
但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Private Sub Form_Load()
Picture1(0)．Left = 0
Picture1(0)．Top = 100
For k = 1 To 7
'Picture1(k)．Visible = ？ ***** False *****
Next
End Sub
Private Sub Command1_Click()
'Timer1.Enabled = ？ ***** True *****
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static i As Integer
Picture1(i)．Visible = False
i = i + 1
'If i = ? Then ***** 8 *****
'i =？ ***** 0 *****
End If
Picture1(i)．Visible = True
End Sub
*****第10套综合应用题
考生文件夹下有一个工程文件sjt5.vbp。运行程序后，从文件中读出数据，放入5X5的二维数组a中。请编写程序，找出a数组中每行的最大值及该值在行中的次序（即列下标），并将所找到的结果分别保存到一维数组b、c中（a第一行的最大值保存在b(1)中，最大值的列次序保存在c(1)中）。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。
Dim a(5, 5) As Integer
Dim b(5) As Integer
Dim c(5) As Integer
Private Sub Command1_Click()
N = 5
For i = 1 To N
'＝＝＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝
Max = a(i, 1)
For j = 1 To 5
If Max < a(i, j) Then
Max = a(i, j)
End If
b(i) = Max
If Max = a(i, j) Then c(i) = j
Next j
'＝＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝
Next i
Save
End Sub
*****第11套简单应用题
【自考真题】2018年4月自考00146中国税制试题含答案
2018年4月高等教育自学考试全国统一命题考试 中国税制试卷 (课程代码00146) 本试卷共6页。满分l00分。考试时间l50分钟。 考生答题注意事项： 1．本卷所有试题必须在答题卡上作答。答在试卷上无效，试卷空白处和背面均可作草稿纸。2．第一部分为选择题。必须对应试卷上的题号使用2B铅笔将“答题卡”的相应代码涂黑。3．第二部分为非选择题。必须注明大、小题号，使用0．5毫米黑色字迹签字笔作答。4．合理安排答题空间，超出答题区域无效。 第一部分选择题 一、单项选择题：本大题共20小题，每小题l分，共20分。在每小题列出的备选项中 只有一项是最符合题目要求的。请将其选出。 1．直接关系到国家财政收入和纳税人负担的税收制度要素是 A．税率 B．纳税人 C．征税对象 D．纳税期限 2．随着经济的周期性变化，税收自动发生增减变化，从而对经济波动发挥自动抵消作用，其体现的税收职能是 A．稳定经济职能 B．资源配置职能 C．财富分配职能 D．财政收入职能 3．在计算增值税时，允许将购入的固定资产价款一次性扣除的增值税类型是 A．生产型增值税 B．收入型增值税 C．消费型增值税 D．扣除型增值税 4．纳税人销售货物或提供应税劳务，收取的下列款项中，不计入增值税销售额的是 A．提供包装物而收取的包装物租金 B．购买方延期付款而收取的延期付款利息 C．提供运输和装卸服务而收取的运输装卸费 D．受托加工应征消费税的消费品所代收代缴的消费税 5．按月申报纳税的增值税一般纳税人，其增值税纳税申报的期限为 A．当月月末 B．次月的l0日内 C．次月的l5日内 D．次月的20日内 6. 国产小汽车消费税的征收环节是 A．使用环节 B．出口环节 C．批发环节 D．生产销售环节 7．下列用途的自产应税消费品，不缴纳消费税的是 A．用于在建工程 B．用于职工福利
vb的操作题(有标准答案)
1.(1）在考生文件夹中有工程文件sj12６.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有１０个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找＂按钮,则找出数组中的最大值(或最小值）,并显示在标签Ｌabｅl２中。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private SuｂCommanｄ1_Click() x ＝ａ（１) y = a（1) Fｏr ｉ＝ 2 To 10 If Opｔion1.Valｕｅ = Ｔrue Ｔheｎ If a(i)>x Then ｘ= ａ(i) Ｅｎd Ｉf
ＥlseIｆａ(i) < y Theｎ y = a(i) Ｅnd Ｉｆ Next If Option1.Vaｌue ＝ True Theｎ Labｅl2．Cａption ＝ x Eｌsｅ Ｌaｂel2.Caption = y Enｄ Iｆ Ｅnd Suｂ 2.(2）在名称为Form1的窗体上画一个名称Ｓｈａｐe1的形状控件,在属性窗口中将其 设置为圆形。画一个名称为List１的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、５。将窗体的标题设为"图形控件"。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sｊ107.vbp，窗体文件名为ｓｊ１0７.ｆｒm。 在Shape控件中,可以用FｉlｌStyle属性设置图形的填充图案，0:透明，2:虚线，3：点线，4:点划线，５:双点划线,6：内实线。 Ｌisｔ控件的Clｉck事件过程为： Private Ｓｕb Ｌｉst１＿Clｉck() Shapｅ1.FiｌlStyｌe = Lｉst１.Text EnｄＳub
算24点题目全集
24点题目 28) 1226 (1+2)*(2+6) 29) 1227 (2+2)*(7-1) 30) 1228 (2-1+2)*8 31) 1229 2*(1+2+9) 32) 1233 3*2*(1+3) 33) 1234 4*(1+2+3) 34) 1235 (1+2)*(3+5) 35) 1236 3*(1*2+6) 36) 1237 1+2+3*7 37) 1238 2*(1+3+8) 38) 1239 1*2*(3+9) 39) 1244 (1+2)*(4+4) 40) 1245 4*(2-1+5) 41) 1246 (2-1)*4*6 42) 1247 2*(1+4+7) 43) 1248 1*2*(4+8) 44) 1249 4+2*(1+9) 45) 1255 1+5*5-2 46) 1256 (1+5-2)*6 47) 1257 1*2*(5+7) 48) 1258 (1+5)/2*8 49) 1259 9+(1+2)*5 50) 1266 6+(1+2)*6 51) 1267 (1+7)/2*6 52) 1268 1*6/2*8 53) 1269 6+1*2*9 54) 1277 (7*7-1)/2 55) 1278 1+7+2*8 56) 1279 1+9+2*7 57) 1288 8+1*2*8 58) 1289 9+2*8-1 59) 1333 (1+3)*(3+3) 60) 1334 4*(1*3+3) 61) 1335 1*3*(3+5) 62) 1336 3+3*(1+6) 63) 1337 1*3+3*7 64) 1338 3*(1+8)-3 65) 1339 (1+3)*(9-3) 66) 1344 1*3*(4+4) 67) 1345 1+3+4*5 68) 1346f 6/(1-3/4) 69) 1347 (1+3)*7-4 70) 1348 8+(1+3)*4 71) 1349 1+3*9-4 72) 1356 1+5+3*6 73) 1357 (7-3)*(1+5) 74) 1358 1+8+3*5 75) 1359 9+1*3*5 76) 1366 6+1*3*6 77) 1367 (7-3)*1*6 78) 1368 (1+6/3)*8 79) 1369 3*(1+9)-6 80) 1377 (7-3)*(7-1) 81) 1378 (7-(1+3))*8 82) 1379 (1+7)*9/3 83) 1388 (1+3)*8-8 84) 1389 1*8*9/3 85) 1399 (9-1)*9/3 86) 1444 4+4*(1+4) 87) 1445 1*4+4*5 88) 1446 4*(1+6)-4 89) 1447 1+7+4*4 90) 1448 8+1*4*4 91) 1449 4*(1+9-4) 92) 1455 4+(5-1)*5 93) 1456f 4/(1-5/6) 94) 1457 1+4*7-5 95) 1458 (8-4)*(1+5) 96) 1459 9+(4-1)*5 97) 1466 (1+4)*6-6 98) 1467 (1+7-4)*6 99) 1468 (1+6-4)*8 100) 1469 (9-(1+4))*6 101) 1477 (7-4)*(1+7) 102) 1478 4*(1+7)-8 103) 1479 (7-4)*(9-1) 104) 1488 1*4*8-8 105) 1489 1+4*8-9 106) 1555f (5-1/5)*5 107) 1556 5*(1+5)-6 108) 1559 (9-5)*(1+5) 109) 1566 1*5*6-6 110) 1567 1+5*6-7 111) 1568 (1+8-5)*6 112) 1569 (9-5)*1*6 113) 1578 (1+7-5)*8 114) 1579 (9-5)*(7-1) 115) 1588 (1*8-5)*8 116) 1589 (8-5)*(9-1) 117) 1599 9+1+5+9 118) 1666 (6-1)*6-6 119) 1668f 6/(1-6/8) 120) 1669 (1+9-6)*6 121) 1679 (9-6)*(1+7) 122) 1688 (1+8-6)*8 123) 1689 9+1+6+8 124) 1699 9+1*6+9 125) 1779 9+7+1+7 126) 1788 8+1+7+8 127) 1789 9+1*7+8 128) 1799 9+7-1+9 129) 1888 8+1*8+8 130) 1889 9+8-1+8 131) 2223 3*2*(2+2) 132) 2224 4*(2+2+2) 133) 2225 2*(2+2*5) 134) 2227 2*(2*7-2) 135) 2228 (2/2+2)*8 136) 2229 2+2*(2+9) 137) 2233 (2+2)*(3+3) 138) 2234 3*(2+2+4) 139) 2235 3*(2*5-2) 140) 2236 2*(2*3+6) 141) 2237 2*(2+3+7) 142) 2238 2+2*(3+8) 143) 2239 (2+2)*(9-3) 144) 2244 2*(4+2*4) 145) 2245 2+2+4*5 146) 2246 (2-2+4)*6 147) 2247 2+2*(4+7) 148) 2248 8+(2+2)*4 149) 2249 2+4+2*9 150) 2255 2*(5+2+5) 151) 2256 2+2*(5+6) 152) 2257 2*5+2*7 153) 2258 2*(5+8)-2
(完整版)24点练习题大全
24点练习题大全 1 1 1 8 : (1+1+1)*8=24 1 1 2 6 : (1+1+2)*6=24 1 1 2 7 : (1+2)*(1+7)=24 1 1 2 8 : (1*1+2)*8=24 1 1 2 9 : (1+2)*(9-1)=24 1 1 2 10 : (1+1)*(2+10)=24 1 1 3 4 : (1+1)*3*4=24 1 1 3 5 : (1+3)*(1+5)=24 1 1 3 6 : (1*1+3)*6=24 1 1 3 7 : (1*1+7)*3=24 1 1 3 8 : (1-1+3)*8=24 1 1 3 9 : (1+1)*(3+9)=24 1 1 3 10 : (10-(1+1))*3=24 1 1 4 4 : (1+1+4)*4=24 1 1 4 5 : (1*1+5)*4=24 1 1 4 6 : (1-1+4)*6=24 1 1 4 7 : (7-1*1)*4=24 1 1 4 8 : (1+1)*(4+8)=24 1 1 4 9 : (4-1)*(9-1)=24 1 1 4 10 : (1+1)*10+4=24 1 1 5 5 : 5*5-1*1=24 1 1 5 6 : (5-1*1)*6=24 1 1 5 7 : (1+1)*(5+7)=24 1 1 5 8 : (5-(1+1))*8=24 1 1 6 6 : (1+1)*(6+6)=24 1 1 6 8 : 6*8/(1+1)=24 1 1 6 9 : (1+1)*9+6=24 1 1 7 10 : (1+1)*7+10=24 1 1 8 8 : (1+1)*8+8=24 1 2 2 4 : (1+2)*2*4=24 1 2 2 5 : (1+5)*(2+2)=24 1 2 2 6 : (1+2)*(2+6)=24 1 2 2 7 : (7-1)*(2+2)=24 1 2 2 8 : (2-1+2)*8=24 1 2 2 9 : (1+2+9)*2=24 1 2 2 10 : (1+2)*(10-2)=24 1 2 3 3 : (1+3)*2*3=24 1 2 3 4 : (1+2+3)*4=24 1 2 3 5 : (1+2)*(3+5)=24 1 2 3 6 : (3-1+2)*6=24 1 2 3 7 : 1+2+3*7=24 1 2 3 8 : (2-1)*3*8=24 1 2 3 9 : 3*9-(1+2)=24 1 2 3 10 : (10-1*2)*3=24 1 2 4 4 : (1+2)*(4+4)=24 1 2 4 5 : (5-1+2)*4=24 1 2 4 6 : (2-1)*4*6=24 1 2 4 7 : (1-2+7)*4=24 1 2 4 8 : (1-2+4)*8=24 1 2 4 9 : (9-(1+2))*4=24 1 2 4 10 : 1*2*10+4=24 1 2 5 5 : 1-2+5*5=24 1 2 5 6 : (1-2+5)*6=24 1 2 5 7 : 1*2*(5+7)=24 1 2 5 8 : (5-1*2)*8=24 1 2 5 9 : (1+2)*5+9=24 1 2 5 10 : 2*10-1+5=24 1 2 6 6 : (1+2)*6+6=24 1 2 6 7 : (7-(1+2))*6=24 1 2 6 8 : (6-(1+2))*8=24 1 2 6 9 : 1*2*9+6=24 1 2 6 10 : (1+2)*10-6=24 1 2 7 7 : (7*7-1)/2=24 1 2 7 8 : (1+7)*2+8=24 1 2 7 9 : 2*9-1+7=24 1 2 7 10 : 1*2*7+10=24 1 2 8 8 : 1*2*8+8=24 1 2 8 9 : 8*9/(1+2)=24 1 2 8 10 : 10+(8-1)*2=24 1 3 3 3 : (1+3)*(3+3)=24 1 3 3 4 : (1*3+3)*4=24 1 3 3 5 : 1*3*(3+5)=24 1 3 3 6 : (6-1+3)*3=24 1 3 3 7 : 1*3+3*7=24 1 3 3 8 : (1+8)*3-3=24 1 3 3 9 : (1+3)*(9-3)=24 1 3 3 10 : (1-3+10)*3=24 1 3 4 4 : (4-1+3)*4=24 1 3 4 5 : 1+3+4*5=24 1 3 4 6 : 6/(1-3/4)=24
vb的操作题(有答案)
1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的？改为正确的容。 注意： 考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文 件名存盘。 Private Sub Command1_Click() x = a(1) y = a(1) For i = 2 To 10 If Option1.Value = True Then If a(i)> x Then x = a(i) End If
ElseIf a(i) < y Then y = a(i) End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其 设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的 值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中 的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状 控件中被竖线填充。如图所示。 要求： 程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。 在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：实线。 List控件的Click事件过程为： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；
中国税制习题及答案
《中国税制》 第一章税收制度基本原理 一、术语解释 1.税收制度：税收制度的概念可从广义和狭义两个角度理解。广义的税收制度是指税收的各种法律制度的总称，包括国家的各种税收法律法规.税收管理体制.税收征收管理制度以及税务机关内部管理制度。狭义的税收制度是指国家的各种税收法规和征收管理制度，包括各种税法条例.实施细则.征收管理办法和其他有关的税收规定等。 2.纳税人：纳税人是指税法规定的直接负有纳税义务的单位和个人。纳税人的规定解决了对谁征税，或者谁应该交税的问题。纳税人是交纳税款的主体。 3.课税对象：征税对象是指根据什么征税，是征税的标的物，也就是缴纳税款的客体。 4.税率：税率是税额与征税对象之间的比例，反映征税的深度，是税收制度的中心环节。 5.税制结构：税制结构指的是一国在进行税制设置时，根据本国的具体情况，将不同功能的税种进行组合配置，形成主体税种明确，辅助税种各具特色和作用.功能互补的税种体系。 二、单项选择题 1.B. 2.A. 3.C. 4.A. 5.D. 三、多项选择题 1.B.C.D. 2.A.B.D. 3.A.B.C.D. 4.A.B.C. 5.A.B.C.D. 四、判断题（判断对错） 1.对。 2.错。 3.对。 4.对。 5.错。 五、简述题 1.税收制度的概念可从广义和狭义两个角度理解。广义的税收制度是指税收的各种法律制度的总称，包括国家的各种税收法律法规.税收管理体制.税收征收管理制度以及税务机关内部管理制度。具体可分为：（1）税收法律制度，即调整税收征纳关系的规范性法律文件，包括各种税法.条例.实施细则.规定.办法和协定等。（2）税收管理体制，即在中央和地方之间划分税收立法.税收执法和税收管理权限的制度。（3）税收征收管理制度。（4）税务机构和人员制度，即有关税务机构的设置.分工.隶属关系以及税务人员的职责.权限等的制度。（5）税收计划.会计.统计工作制度。狭义的税收制度是指国家的各种税收法规和征收管理制度，包括各种税法条例.实施细则.征收管理办法和其他有关的税收规定等。
三年级下册数学试题算24点笔试竞赛题苏教版
算24点笔试竞赛 班级姓名成绩 笔试要求：根据提供的四个数，算24，列分步算式计算出结果，如果列综合算式者，不正确不得分。可以跳题。 笔试时间：10分钟 笔试评分：在规定的时间内进行答题算24，每对一题得5分，按总分排序。按一定比例评选出校级算24点神算手，颁发校级证书。 升级赛：每班组队4人，进行现场扑克算24点娱乐性比赛，现场小队pk 和现场挑战赛相结合。 9、5、6、1 3、7、4、5 5、2、5、9 3、3、6、2 5、4、5、1 2、9、6、7 2、1、2、6 1、6、2、6 5、2、3、4 6、2、1、8 4、4、5、2 1、7、3、8 5、8、4、3 3、3、8、4 2、1、7、8 5、4、4、6 5、6、4、5 1、5、3、10 10、7、3、1 5、3、9、1 10、10、9、5 10、7、1、1 4、4、1、9 9、4、3、1
9、10、5、1 6、1、4、9 3、1、5、1 1、5、6、3 9、8、3、5 1、8、9、6 6、3、5、3 3、3、8、7 8、3、9、7 3、7、4、1 3、4、4、8 3、8、5、4 9、4、2、10 7、7、4、6 7、2、1、9 8、3、6、8 9、4、10、1 7、7、5、5 5、6、3、10 4、7、6、7 10、8、6、1 10、5、10、1 5、6、6、7 4、7、9、4 3、5、8、8 3、7、1、2 4、3、8、9 8、9、9、2 8、10、3、3 2、5、9、5 8、2、2、4 5、4、6、2
9、5、10、10 6、8、10、5 4、2、8、5 9、8、4、2 6、5、8、3 9、7、4、8 4、2、6、9 8、8、9、1 5、5、6、6 2、7、4、7 8、3、1、1 3、5、6、8 7、2、2、4 3、9、8、6 7、4、10、6 10、8、6、5 6、9、8、3 4、9、5、10 8、9、1、6 10、3、6、5 9、2、8、5 7、1、10、6 2、4、9、9 3、1、6、2 3、2、1、4 20、9、2、3 9、3、10、2 3、7、2、1 5、9、2、4 3、4、7、6 9、5、1、6 2、8、6、5
小学四年级算24点比赛试题
四年级算24点比赛试题 （时间：40分满分100分） 学校班级姓名得分一、算24点。（每题3分，共60分） 例：2 4 4 8 4+8=12，4-2=2，12×2=24。或（4+8）×（4-2）=24。 （1）1，4 ，7 ，7 （2）1 ，7 ，7，9 （3）3 ，3，5，7 （4）4，5，5，7 （5）1，5 ，7 ，10 （6）1 ，4 ，4，9 （7）5 ，6 ，7 ，9 （8）4，4 ，7，8 （9）1，3 ，10，10 （10）2，2 ，4，4 （11）5，8，8，8 （12）1，2 ，8，10 （13）6 ，6，9，10 （14）3，3，3 ，10 （15）2 ，3 ，10 ，10 （16）8，8，8，10 （17）7 ，8，8，10 （18）1，3 ，3，6 （19）3，3 ，3，5 （20）4 ，4 ，8，9
二、用三种方法算24点。（每题5分，共40分，算对一种得2分，算对二 种得4分，算对三种得5分） 说明：调换加数、因数顺序，调换加减、乘除运算顺序，除以1与乘1均视作同种算法。 例：2 4 8 10 第一种: 2+4=6，6+8=14，14+10=24。或2+4+8+10。第二种: 10-2=8，4×8=32，32-8=24。或（10-2）×4-8=24。第三种: 2+10=12，8×12=96，96÷4=24。或8×（2+10）÷4=24。 （1）3，4，4 ，6 第一种: 第二种: 第三种: （2） 4 ，6 ，7 ，7 第一种: 第二种: 第三种: （3） 2 ，3 ，4 ，10 第一种: 第二种: 第三种: （4）3，8，10 ，10 第一种: 第二种: 第三种: （5） 2 ，2，8 ，8 第一种: 第二种: 第三种: （6）1，2 ，3 ，10 第一种: 第二种: 第三种: （7）1，3，4 ，7 第一种: 第二种: 第三种: （8）3，4，9 ，9 第一种: 第二种: 第三种:
VB练习题(上机)含答案
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
中国税制模拟试题试题及答案
《中国税制》模拟试题试题及答案 一、单项选择题(每小题1分，计20分) 1、税收是作为取得财政收入的一种工具，其凭借的权力是（B）。 A、财产权力 B、政治权力 C、生产资料所有权 D、财政权力与政治权力 2、税收的首要基本职能是（A）。 A、财政职能 B、经济职能 C、调节职能 D、资源配置职能 3、一种税区别另一税的主要区别是（B）。 A、纳税人 B、征税对象 C、税率 D、纳税期限 4、在我国，负责全面领导和管理税收工作，组织实施各项税法的机构是（B）。 A、国家税务总局 B、国务院 C、教育部 D、商务部 5、英国资产阶段古典的政治学的创始人是（B）。 A、亚当斯密 B、威廉配第 C、尤斯迪 D、大卫李嘉图 6、按我国现行增值税的规定，下列行业不纳增值税的是（B）。 A、工业制造业 B、金融保险业 C、商业批发和零售行业 D、工业性加工业 7、下列属于直接税的有（C）。 A、消费税 B、关税 C、财产税 D、营业税 8、下列项目中应征增值税的是（D）。 A、邮电局销售报刊、杂志 B、农业生产者出售初级产品 C、企业出售商标收入 D、企业将自产的钢材用于扩建自住房 9、所谓增值额，是指企业或个人在生产经营过程中新创造的那部分价值，即（D）。 A、C+V+M B、C+V C、C+M D、V+M 10、纳税人自产自用的应税消费品，其纳税义务发生时间为（A）。 A、移送使用的当天 B、移送使用的次天 C、委托方提货的当天 D、委托方提货的次天 11、企业所得税的计税依据是企业的（C）。 A、应纳税额 B、利润额 C、应纳税所得额 D、收入总额 12、下列不属于按照关税的流动方向分类的关税是（D）。 A、进口关税 B、出口关税 C、过境关税 D、复合关税 13、王教授一次稿酬收入5000元，该教授此笔稿酬的应纳税额为（A）。 A、560元 B、700元 C、1000元 D、2200元 14、耕地占用税是对占用农村耕地建房或者从事其他非农业建设单位和个人，按照规定税额征收的（B）税种。 A、按日 B、一次性 C、按年 D、按天 15、下列资源中，不是资源税的应税项目是（B）。 A、盐资源 B、财产税 C、耕地占用税 D、土地使用税 16、根据车船使用税法的规定，各种载货汽车的计税依据为（B）。 A、辆 B、净吨位 C、载重吨位 D、行驶里程 17、就其性质来说，房产税属于（B）。 A、资源税 B、财产税 C、行为税 D、流转税 18、契税是在转移土地，房屋权属订立契约时，由谁缴纳的一种税（A）。 A、承受人 B、转让人和承受人 C、转让人 D、出让人 19、下列不属于行为税的有（C）。 A、印花税 B、城市维护建设税 C、车船税 D、社会保险税 20、我国车辆的购置税实行的税率是（B）。 A、定额税率 B、统一比例税率 C、累进税率 D、超额累进税率
4月全国自考《中国税制》试题及答案
全国2015年4月高等教育自学考试《中国税制》参考答案 课程代码：00146 注：参考答案仅供参考，并不是标准答案。 一、单项选择题： 1-5：CBCAB 6-10：CDCCA 11-15：ADA DD 16-20：ACADB 二、多项选择题： 21：无 22. ACE 三、简单题： 26.简述税收的财政职能所具有的特点。 答：税收的财政职能有如下几个特点。 （1）用范围的广泛性。 （2）取得财政收入的及时性。 （3）征收数额上的稳定性。 27.简述个人所得税的概念及其特点
答：概念：个人所得税是对个人（自然人）取得的各项应税所得征收的一种税。它最早于1799年在英国创立，目前世界上已有140多个国家开征了这一税种。 （一）实行分类征收 （二）累进税率与比例的税率并用 （三）费用扣除额较宽 （四）计算简便 （五）采取课源制和申报制两种征税方法 28.简述契税的概念及其作用 答：契税是在转移土地、房屋权属订立契约时，由承受人交纳的一种税。 作用：契税实行40多年来，在搞好土地、房屋权属转移的管理，增加财政收入，调节收入分配不公等方面，发挥了积极作用。 ①征税对象不符合宪法规定。宪法规定土地不得买卖，原《契税暂行条例》则规定对土地所有权买卖征收契税，明显与宪法相抵触。 ②税负不公。原来的契税只对个人、外商投资企业、外国企业和外国人、华侨、港澳台同胞等非公有制经济成分征收，对公有制经济组织是免征的，这不符合公平税负的原则。 ③原《契税暂行条例》关于征收机关、征收管理等方面的内容已经大大落后于形势，影响了契税的征收，税源大量流失的情况难以得到遏制。 29.简述印花税的纳税方法。 答:（1）自行贴花办法即“三自”纳税办法，是指纳税人在发生纳税义务时，应当根据应税凭证的性质和适用的税目税率，自行计算应纳税额，自行购买印花税票，自行一次贴足印花税票并加以注销或画销。 （2）汇贴或汇缴办法
小学生算24点题目及答案汇总
小学生算24点题目及答案汇总：3 4 5 6 ((3-(4-5))×6)=24 3 4 5 7 ((3×(7-5))×4)=24 3 4 5 8 ((3×(5-4))×8)=24 3 4 5 9 ((4-(5-9))×3)=24 3 4 5 10 ((3×(4/5))×10)=24 3 4 6 6 ((3×(4+6))-6)=24 3 4 6 8 ((3×(8-6))×4)=24 3 4 6 9 ((3-(6-9))×4)=24 3 4 6 10 ((3×(10-4))+6)=24 3 4 7 7 ((3+(4×7))-7)=24 3 4 7 8 ((4×(7-3))+8)=24 3 4 7 9 ((3×(4+7))-9)=24 3 4 7 10 ((3+(4+7))+10)=24
3 5 6 10 ((3+(5+6))+10)=2 4 3 5 7 8 ((7×(8-5))+3)=24 3 5 7 9 ((3+(5+7))+9)=24 3 5 7 10 ((5-(7-10))×3)=24 3 5 8 8 ((3+(5+8))+8)=24 3 5 8 9 ((5+(3×9))-8)=24 3 5 9 9 ((5/(3/9))+9)=24 3 5 9 10 ((3×(10-5))+9)=24 3 4 8 9 ((3+(4+8))+9)=24 3 4 8 10 ((3×(10-8))×4)=24 3 4 9 9 ((3×(9-4))+9)=24 3 4 10 10 ((4+(3×10))-10)=24 3 5 5 6 ((3×(5+5))-6)=24 3 5 5 7 ((7+(5/5))×3)=24
算24点练习题可打印附答案
题目： 1 1 1 8 : 1 1 2 6 : 1 1 2 7 : 1 1 2 8 : 1 1 2 9 : 1 1 2 10 : 1 1 3 4 : 1 1 3 5 : 1 1 3 6 : 1 1 3 7 : 1 1 3 8 : 1 1 3 9 : 1 1 3 10 : 1 1 4 4 : 1 1 4 5 : 1 1 4 6 : 1 1 4 7 : 1 1 4 8 : 1 1 4 9 : 1 1 4 10 :1 1 5 5 : 1 1 5 6 : 1 1 5 7 : 1 1 5 8 : 1 1 6 6 : 1 1 6 8 : 1 1 6 9 : 1 1 7 10 : 1 1 8 8 : 1 2 2 4 : 1 2 2 5 : 1 2 2 6 : 1 2 2 7 : 1 2 2 8 : 1 2 2 9 : 1 2 2 10 : 1 2 3 3 : 1 2 3 4 : 1 2 3 5 : 1 2 3 6 : 1 2 3 7 :
1 2 3 9 : 1 2 3 10 : 1 2 4 4 : 1 2 4 5 : 1 2 4 6 : 1 2 4 7 : 1 2 4 8 : 1 2 4 9 : 1 2 4 10 : 1 2 5 5 : 1 2 5 6 : 1 2 5 7 : 1 2 5 8 : 1 2 5 9 : 1 2 5 10 : 1 2 6 6 : 1 2 6 7 : 1 2 6 8 : 1 2 6 9 : 1 2 6 10 : 1 2 7 7 :1 2 7 9 : 1 2 7 10 : 1 2 8 8 : 1 2 8 9 : 1 2 8 10 : 1 3 3 3 : 1 3 3 4 : 1 3 3 5 : 1 3 3 6 : 1 3 3 7 : 1 3 3 8 : 1 3 3 9 : 1 3 3 10 : 1 3 4 4 : 1 3 4 5 : 1 3 4 6 : 1 3 4 7 : 1 3 4 8 : 1 3 4 9 : 1 3 4 10 : 1 3 5 6 :
VB操作题答案
第一次作业 Private Sub Command1_Click() Text1.Text = "欢迎你学习VB程序设计" Text1.ForeColor = vbGreen Text1.Font = "宋体" Text1.FontSize = 25 Text1.FontItalic = True Text1.FontBold = True End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Click() Text1.ForeColor = vbRed Text1.Font = "隶书" Text1.Text = "佛山大学理学院" End Sub 第二次作业(服务员密码) 1、请建立一个工程（ zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）… 3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。Private Sub Command1_Click() Text1.Visible = False Label2.Visible = True Label2.Caption = "你好，你需要什么" Command2.Enabled = True End Sub Private Sub Command2_Click() Command1.Visible = False Command2.Visible = False Label1.Visible = False Label2.Caption = "谢谢你，再见！" End Sub Private Sub Form_Load() Label2.Visible = False Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Text1_Change() If Text1.Text = "12345" Then Command1.Enabled = True Text1.PasswordChar = "*" End Sub 第三次
24点练习题大全(打印版)
24点练习题大全(打印版)
24点练习题大全1 1 1 1 : 算不起 1 1 1 2 : 算不起 1 1 1 3 : 算不起 1 1 1 4 : 算不起 1 1 1 5 : 算不起 1 1 1 6 : 算不起 1 1 1 7 : 算不起 1 1 1 8 : (1+1+1)*8=24 1 1 1 9 : 算不起 1 1 1 10 : 算不起 1 1 2 2 : 算不起 1 1 2 3 : 算不起 1 1 2 4 : 算不起 1 1 2 5 : 算不起 1 1 2 6 : (1+1+2)*6=24 1 1 2 7 : (1+2)*(1+7)=24 1 1 2 8 : (1*1+2)*8=24 1 1 2 9 : (1+2)*(9-1)=24 1 1 2 10 : (1+1)*(2+10)=24 1 1 3 3 : 算不起 1 1 3 4 : (1+1)*3*4=24 1 1 3 5 : (1+3)*(1+5)=24 1 1 3 6 : (1*1+3)*6=24 1 1 3 7 : (1*1+7)*3=24 1 1 3 8 : (1-1+3)*8=24 1 1 3 9 : (1+1)*(3+9)=24 1 1 3 10 : (10-(1+1))*3=24 1 1 4 4 : (1+1+4)*4=24 1 1 4 5 : (1*1+5)*4=24 1 1 4 6 : (1-1+4)*6=24 1 1 4 7 : (7-1*1)*4=24 1 1 4 8 : (1+1)*(4+8)=24 1 1 4 9 : (4-1)*(9-1)=24 1 1 4 10 : (1+1)*10+4=24 1 1 5 5 : 5*5-1*1=24 1 1 5 6 : (5-1*1)*6=24 1 1 5 7 : (1+1)*(5+7)=24 1 1 5 8 : (5-(1+1))*8=24 1 1 5 9 : 算不起 1 1 5 10 : 算不起 1 1 6 6 : (1+1)*(6+6)=24 1 1 6 7 : 算不起 1 1 6 8 : 6*8/(1+1)=24 1 1 6 9 : (1+1)*9+6=24 1 1 6 10 : 算不起 1 1 7 7 : 算不起 1 1 7 8 : 算不起 1 1 7 9 : 算不起 1 1 7 10 : (1+1)*7+10=24 1 1 8 8 : (1+1)*8+8=24 1 1 8 9 : 算不起 1 1 8 10 : 算不起 1 1 9 9 : 算不起 1 1 9 10 : 算不起 1 1 10 10 : 算不起 1 2 2 2 : 算不起 1 2 2 3 : 算不起 1 2 2 4 : (1+2)*2*4=24 1 2 2 5 : (1+5)*(2+2)=24 1 2 2 6 : (1+2)*(2+6)=24 1 2 2 7 : (7-1)*(2+2)=24 1 2 2 8 : (2-1+2)*8=24 1 2 2 9 : (1+2+9)*2=24 1 2 2 10 : (1+2)*(10-2)=24 1 2 3 3 : (1+3)*2*3=24 1 2 3 4 : (1+2+3)*4=24 1 2 3 5 : (1+2)*(3+5)=24 1 2 3 6 : (3-1+2)*6=24 1 2 3 7 : 1+2+3*7=24 1 2 3 8 : (2-1)*3*8=24 1 2 3 9 : 3*9-(1+2)=24 1 2 3 10 : (10-1*2)*3=24 1 2 4 4 : (1+2)*(4+4)=24 1 2 4 5 : (5-1+2)*4=24 1 2 4 6 : (2-1)*4*6=24 1 2 4 7 : (1-2+7)*4=24 1 2 4 8 : (1-2+4)*8=24 1 2 4 9 : (9-(1+2))*4=24 1 2 4 10 : 1*2*10+4=24 1 2 5 5 : 1-2+5*5=24 1 2 5 6 : (1-2+5)*6=24 1 2 5 7 : 1*2*(5+7)=24 1 2 5 8 : (5-1*2)*8=24 1 2 5 9 : (1+2)*5+9=24 1 2 5 10 : 2*10-1+5=24 1 2 6 6 : (1+2)*6+6=24 1 2 6 7 : (7-(1+2))*6=24 1 2 6 8 : (6-(1+2))*8=24 1 2 6 9 : 1*2*9+6=24 1 2 6 10 : (1+2)*10-6=24 1 2 7 7 : (7*7-1)/2=24 1 2 7 8 : (1+7)*2+8=24 1 2 7 9 : 2*9-1+7=24 1 2 7 10 : 1*2*7+10=24 1 2 8 8 : 1*2*8+8=24 1 2 8 9 : 8*9/(1+2)=24 1 2 8 10 : 10+(8-1)*2=24 1 2 9 9 : 算不起 1 2 9 10 : 算不起 1 2 10 10 : 算不起 1 3 3 3 : (1+3)*(3+3)=24
vb新操作题(含答案)
一、操作题,每题 10分,6 题共60分 【第4题】 打开文件“考生文件夹\175\工程1、vbp”,完善Command1_Click事件及s函数代码并保存。 实现功能:用递归法求1+2+3+…+100的值,结果输出在窗体上。 Public Function S(n As Integer) As Integer If n = 1 Then S = ① Else S = ② + S(n - 1) End If End Function Private Sub Command1_Click() Dim Sum As Integer Sum = S(③) Print "Sum=" & CStr(Sum) End Sub 【第5题】 打开文件“考生文件夹\851\工程1、vbp”,完善程序实现如下功能并保存: 花果山上有一洞,小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞,编程在Text1中输入台阶数,在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示,调试时输入的台阶数最大不要超过35！ Function s(n As Integer) As Long If n = 1 Or n = 2 Then s = ① Else If n = 3 Then s = 2 Else s = s(n - 1) + s(n - 3) End If End If ①1 ②text1、text ③s(n) ①1 ②n ③100
End Function Private Sub Command1_Click() Dim n As Integer n = Val(②) Label1、Caption = Str(③) End Sub 【第6题】 打开文件“考生文件夹\861\年龄问题、vbp ”,完善程序实现如下功能并保存: 有5个人坐在一起,第5个人说她比第4个人小3岁;第4个人说她比第3个人小3岁;第3个人说她比第2个人小3岁;第2个人又说她比第1个人小3岁;第1个人说她就是38岁。编写程序,计算出第5个人的年龄并显示。 Private Sub cmdDisplay_Click() Print "第5人的年龄:"; age(①) End Sub Function age(n As Integer) As Integer If n = 1 Then age = ② Else age = age(n - 1) - 3 ③ End Function 【第3题】 打开文件“考生文件夹\89\工程1、vbp ”,完善Command1_Click 事件代码并保存。 乘坐飞机的经济舱时,免费托运行李一般不得超过20公斤,超重每公斤按全票价的1、5%计算。 实现功能:输入行李重量及经济舱全票价后,点击按钮,计算出行李托运费用,输出到对应文本框中。 Private Sub Command1_Click() Dim w As Integer '行李重量 Dim pj As Integer '机票价格 Dim fy As Single '托运费用 w = Val(Text1、Text) pj = Val(Text2、Text) If w <= 20 Then ① Else fy = (w - 20) * pj * 0、015 ② Text3、Text = ③ End Sub 【第4题】 打开文件“考生文件夹\122\工程1、vbp ”,完善Command1_Click 事件代码并保存。 王晓珊家距离学校s1(千米),某天她与李明各自同时从家里步行出发上学,王晓珊步行速率v1(千米/小时),李明步行速率v2(千米/小时),结果她们同时到达学校。