vb期末考试试题谁有啊
For i = 0 To 20
For j = 0 To 33
If i * 5 + j * 3 + (100 - i - j) / 3 = 100 Then
Print "公鸡:"; i; "只,母鸡:"; j; "只,小鸡:"; 100 - i - j; "只。"
End If
Next j
Next i
我在郑州上学,这是我们的试卷,中原工学院经管院大一的试题希望对你有用!
一、单项选择题(共10分)
1.在代码中引用一个控件时,应使用控件的( )属性。
A.Caption B.Name C.Text D.Index
2.设变量x = 4,y = -1,a = 7,b = -8,下面表达式( )的值为“假”。
A.x+a 0 AND y < 0
C.a = b OR x>y D. x+y > a+b AND NOT (y < b)
3.表达式Int(Rnd*71)+10产生的随机整数范围是( )。
A.(10,80) B.(10,81) C.[10,80] D.[10,81]
4.函数Sgn(3.1416)的返回值是( )。
A.-1 B.0 C.1 D.以上都不对
5.67890属于( )类型数据。
A.整型 B.单精度浮点数 C.货币型 D.长整型
6.下列变量名中正确的是( )。
A.3S B.Print C.Select My Name D.Select_1
7.下列赋值语句( )是有效的。
A.sum = sum -sum B.x+2 = x + 2 C.x + y = sum D.last = y / 0
8.以下的控件或方法具有输入和输出双重功能的为( )。
A.Print B.Textbox C.Optionbutton D.Checkbox
9.若要获得列表框中被选中的列表项的内容,可以通过访问( )属性来实现。
A.Name B.ListIndex C.ListCount D.Text
10.下列代码的运行结果为( )。
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
End Sub
A.2 B.3 C.4 D.5
二、填空题(10分)
1.写出整数n能同时被13和17整除的Basic表达式 。
2.代码窗口中有两个下拉列表框:左侧是 列表框,右侧是过程列表框。
3.写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式 。
4.函数Len(“abcdef”)的返回值是 。
5.设a = 2,b = 5,c = -2,d = 100,则a > b >= c AND a = d的值为 。
6.要使标签的大小自动与所显示的文本相适应,可以通过设置 属性为True来实现。
7.若要在一行书写多条语句,则各语句间应加分隔符,Visual Basic的语句分隔符为 。
8.要强制显式声明变量,使用__________语句完成。
9.在VB中,用户定义常量使用 语句,声明变量使用 语句。
三、将下列数学表达式转换为VB表达式。(6分)
1.a2+2ab+b2 __________________________
2. __________________________
3.8exln10 __________________________
4.2sin(450)cos(450) _______________________________
5. ___________________________________________
6. ___________________________________________
四、判断题,正确打“√”,错误打“×”(10分)
1.在VB中,控件的事件只能通过用户的操作触发。( )
2.字符型数据以双引号作为定界符,输出时双引号本身不会显示在屏幕上。( )
3.保存工程时,窗体文件和工程文件的文件名不能相同。( )
4.改变控件的大小,可以使用鼠标和键盘,还可以通过修改代码。( )
5.同一过程中,数组和简单变量可以同名。( )
6.VB函数中的参数可以是常量、变量、表达式,还可以是另一个函数。( )
7.代码Const Number1=15:Number1=10合法。( )
8.允许将块If-Then语句结构中的所有语句都写在一行上( )
9.定义数组语句Dim a(b) As Integer 是正确的( )
10.在过程调用中,“实参表”和“形参表”中对应的变量名不必相同,但是变量的个数必须相等,而且实际参数的类型必须与相应形式参数的类型相符。( )
五、根据题意,将下列程序补充完整。(16分)
1. 产生20个[10,100] 之间的随机整数,每行输出10个数据。
Private Sub command1_click()
Dim a(1 To 20) As Integer
Randomize
i = 0
Do While i < 20
i = i + 1
a(i) = ( )
If ( )Then
Print a(i);
End If
If i = 10 Then Print a(i)
If i > 10 Then Print a(i);
Loop
End Sub
2.打印九九乘法表
Private Sub command1_click()
For i = 1 To 9
For j = 1 To 9
Print ( )
Next j
Print
( )
End Sub
3.判断一个数是否素数
Private Sub command1_click()
x = InputBox("请输入一个整数")
flag = 1
For i = 2 To ( )
If x Mod i = 0 Then
flag = 0
End If
Next i
If ( )Then Print x; "是素数" Else Print x; "不是素数"
End Sub
4.利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1,其余各项均为其前两项之和。
Private Sub Command1_Click()
( )
f(1) = 1 : f(2) = 1
List1.AddItem f(1) : List1.AddItem f(2)
For i = 3 To 15
f(i) = ( )
List1.AddItem f(i)
Next i
End Sub
六、写出下面程序的输出结果。(每题3分,共18分)
1. Private Sub command1_click()
x = InputBox("enter x") ' x 的输入值为-8
Select Case Sgn(x) + 2
Case 1
Print "y="; x ^ 2 + 1
Case 2
Print "y="; x - 4
Case 3
Print "y="; x ^ 3 + 100
End Select
End Sub
2. Private Sub command1_click()
Dim a, b, c, d, e As String
a = "Zheng Zhou"
b = "Zhong Yuan Gong Xue Yuan"
c = a + " " + b
d = Left(a, 1) + Mid(a, 7, 1)
e = Left(b, 1) + Mid(b, 12, 1)
Print c
Print d; e
End Sub
3.设有Sub过程:
Private Sub p1(x As Integer, ByVal y As Integer)
x = 4 :y = 5 :z = 6
End Sub
则如下程序段的运行结果是:
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 1: y = 2: z = 3
Print x, y, z
Call p1(x, y)
Print x, y, z
End Sub
4. Private Sub command1_click()
k = 0
For i = 1 To 3
k = k + 1
a = i * i * k
Print a;
Next i
End Sub
5. Private Sub command1_click()
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = i * 2 + j
Print a(i, j);
Next j
Print
Next i
End Sub
6.设有Function过程:
Private Function f1(b, a)
a = a * a: b = b * b
f1 = a - b
End Function
则如下程序段的运行结果是什么?
Private Sub command1_click()
a = 4: b = 3
a = f1(a, b)
Print a
End Sub
七.编程题(共30分)
注意:艺术类学生(环艺、装潢、表演、服设)做第1、2、5、6小题;
其他学生做 第1、2、3、4 小题。
1.给出一个百分制的成绩,要求输出成绩的相应等级。(7分)
90分以上为“A”,80~89分为“B”,70~79分为“C”,60~69分为“D”,60分以下为“E”。
2.求n!,n由键盘输入。(7分)
3.产生20个 [0,99] 之间的随机整数,并按从小到大的顺序输出。(8分)
4.产生并输出一个6×6的二维数组A:(8分)
(1)两条对角线上元素的值为1,其余元素为小于30的随机整数。
(2)计算各行元素的平均值,输出平均值最大和平均值最小的行号。
5.输出1+2+……+100的和,并求出1~100 之间能被17整除的数据的个数(8分)
6.从键盘输入10个数,求出其中的最大数,最小数和平均值。(8分)
VB试题答案及评分标准
一、 单项选择题(每题1分,共10分)
1.B 2.A 3.C 4.C 5.D
6.D 7.A 8.B 9.D 10.B
二、 填空题(每空1分,共10分)
1.n Mod 13=0 And n Mod 17=0
1、 对象
3.LEFT(“Visual Basic 6.0”,6)
4.6
5.False
6.Autosize
7. : 8.Option Explict 9.Const Dim
三、 将下列数学表达式转换成VB表达式(每题1分,共6分)
1、 a^2+2*a*b+b^2
2、 x^(1/3)*y^(1/4)
3、 8*exp(x)*log(10)
4、 2*sin(3.1416/4)*cos(3.1416/4)
5、 (x+y+z)/sqr(x^2+y^2+z^2)
6、 log(1+abs((a+b)/(a-b)))
四、 判断题(每题1分,共10分)
1.× 2.√ 3.× 4.√ 5.×
6.√ 7.× 8.× 9.× 10.√
五、 根据题意,将下列程序补充完整(每空1分,共10分)
1.(1) int(rnd*91)+10 (2) I<10
2.(1) i*j (2) next i
3.(1)int(sqr(x))或者x-1 (2) flag=1
4.(1)dim f(15) as integer (2)f(I-1)+f(I-2)
六、 写出下面程序的输出结果(每题4分,共24分)
1、 y=65
2、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分
ZZZG 2分
3.1 2 3
4 2 3
4.1 8 27
5.3 4 5 6 7
5 6 7 8 9
7 8 9 10 11
9 10 11 12 13
11 12 13 14 15
6.-7
七、 编写程序
1. private sub command1_click()
dim x as integer,grade as string 1分
x=text1.text 1分
select case x 4分
case 90 to 100
grade=”A”
case 80 to 89
grade=”B”
case 70 to 79
grade=”C”
case 60 to 69
grade=”D”
case is<60
grade=”E”
case else
msgbox “请重新输入”
end select
print “该学生成绩为”+grade 1分
end sub
2.Private Sub command1_click()
Dim n as integer,f as long 1分
n=text1.text 1分
f=1
for I=1 to n 3分
f=f*I
next I
text2.text=f 2分
end sub
3. Private Sub Command1_Click()
Dim a(1 To 20) As Integer ' 1分
Randomize
For i = 1 To 20 2分
a(i) = Int(Rnd * 100)
Print a(i);
Next
Print
For i = 1 To 19 3分
For j = i + 1 To 20
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
For i = 1 To 20 2分
Print a(i);
Next i
End Sub
4. Private Sub Command1_Click()
Dim a(1 To 6, 1 To 6) As Integer ' 1分
Dim aver As Single
Randomize
For i = 1 To 6 3分
For j = 1 To 6
If i = j Or i + j = 7 Then
a(i, j) = 1
Else
a(i, j) = Int(Rnd * 30)
End If
Print a(i, j);
Next j
Print
Next i
Print
Max = 0: Min = 30 4分
For i = 1 To 6
s = 0
For j = 1 To 6
s = s + a(i, j)
Next j
aver = s / 6
If aver > Max Then Max = aver: row_max = I
If aver < Min Then Min = aver: row_min = i
Next i
Print row_max, row_min
End Sub
5. Private Sub Command1_Click()
Dim i As Integer, c As Integer
Dim s As Integer
For i = 1 To 100 4分
s = s + i
If i Mod 17 = 0 Then c = c + 1
Next i
Print "1+2+...+100="; s 2分
Print "能被17整数的数据有"; c; "个" 2分
End Sub
6. Private Sub Command1_Click()
Dim x As Integer
x = InputBox("x=") 1分
Print x;
Max = x: Min = x: s = x 2分
For i = 2 To 10 3分
x = InputBox("x=") :Print x;
s = s + x
If x > Max Then Max = x
If x < Min Then Min = x
Next i
Print s / 10 1分
Print Max, Min 1分
End Sub
VB期末考试试题 一、 填空题
1、VB程序设计的主要特点是 (1) 和 (2) 。
2、在VB中,最主要的两种对象是 (3) 和 (4) 。
3、工程是构成应用程序文件的 (5) 。
4、方法是VB提供的一种 (6) ,用来完成一定的操作。
5、浮点类型数据包括单精度型和___(7)__数据。
6、事件是窗体或控件对象识别的___(8)____。
7、可用窗体的___(9)_ 方法在窗体中显示文字。
8、 复选框控件Value属性指示复选框处于____(10)___或禁止状态(暗淡的)中的某一种。
9、在VB中,修改窗体的 (11)和 (12) 属性值,可改变窗体的大小。
10、双击工具箱中的控件图标,可在窗体的 (13) 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中,如果缺省title参数,则使用 (14) 作为消息框的标题。
12、设x=34.58,语句Print Format(x,“000.0”)的输出结果是 (15) 。
13、在VB 中,数值型变量的初值为 (16) ,Varant型变量的初值为 (17) ,布尔型变量的初值为 (18) 。
14、设置窗体的 (19) 属性,可在窗体上显示图片。
15、程序运行工程中,清除MP图片框中的图片应使用语句 (20) 。
二、选择题
1、菜单控件只包括一个事件,即 (1) ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus B、Load C、Click D、KeyDown
2、滚动条控件(如图所示)的Max属性所设置的是 (2) 。
A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值
B、 单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、SQL 语句 Select * Form student 中的 *表示 (3) 。
A、所有记录 B、所有字段 C、所有表 D、都不对
4、以下选项中,不属于标签的属性是 (4) 。
A、Enabled B、Caption C、Default D、Font
5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 (5) 。
A、Caption B、Name C、Text D、Label
6、设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是 (6) 。
A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的? (7) 。
A、在标题项中输入&,然后打勾 B、在索引项中打勾
C、在有效项中打勾 D、在复选项中打勾
8、当执行以下过程时,在窗体上将显示 (8) 。
Private Sub Command1_Click( )
Print "VB";
Print "Hello! ";
Print "VB"
End Sub
A、 VBHello!VB B、 VB
Hello!VB
C、 VB D、 VB
Hello! VB Hello!
VB
9、语句Print "The answer is:";20/4-2的结果为 (9) 。
A、The answer is 20/4-2 B、The answer is 3
C、The answer is "20/4-2" D、非法语句
10、下列哪个控件是容器控件 (10) 。
A、Image B、Picture C、ComboBox D、FileListBox
11、若要将窗体从内存中卸载出去,其实现的方法是 (11) 。
A.Show B.Hide C.Load D.UnLoad
12、以下选项中,不是 Visual Basic控件的是 (12) 。
A.窗体 B.定时器 C.单选框 D.命令按钮
13、双击窗体中的对象后,Visual Basic将显示的窗口是 (13) 。
A.代码窗口 B.工具箱 C.项目(工程)窗口 D.属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是 (14) 。
A.ControlBox B.MinButton
C.MaxButton D.BorderStyle
15、设有如下语句:
Strl=InputBox("输人","","练习")
从键盘上输人字符 “示例”后,Strl的值是 (15) 。
A.“输入” B.“ ” C.“练习” D.“示例”
16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 (16) 。
A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click
17、窗体的hide属性的含义是 (17) 。
A.隐藏 B.展现 C.装入 D.卸载
18、若要设置定时器控件的定时时间,需设置的属性是 (18) 。
A.Enabled B.Value C.Interval D.Text
19、能够改变复选框中背景颜色的属性是 (19) 。
A.Value B.FontColor C.BackColor D.Font
20、窗体能响应的事件是 (20) 。
A.ActiveForm B.Load C.Drive D.Change
三、判断题(判断下列正确与否,正确的打√,错误的打ⅹ。)
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。
2、图象框中的Stretch属性为true时,其作用是图形自动调整大小以适应图象控件。
3、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字”。
4、通过改变属性窗口中的Name属性,来改变窗体的标题。
5、创建VB应用程序的三个主要步骤是:(1)创建应用程序界面(2)设置控件(3)编写代码。
6、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。
7、已知P=MsgBox(“Howareyou?",VbYesNo+VbQuestion,“Hello!”),变量P是Integer数据类型。
8、工程文件的扩展名是 .vbg 。
9、VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。
11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。
13、ImageList 是一个图像容器控件,可用作工具栏的图像库。
14、当用户单击工具栏按钮时,将触发工具栏按钮的ButtonClick事件。
15、在VB的工程资源管理器中,如果从工程中移除已经保存过的文件,该文件仍然被物理删除(真正删除)。
16、如果列表框的ListConut的属性为10,则列表框最后一项的ListIndex值为10。
17、要是某个命令按钮不起作用,应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句:Dim D$(10),则数组D中各元素的值为空。
19、如果在一行中输入多条语句,各语句之间用使用 ;分隔。
20、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法错误。
四、读程序题,写出程序运行结果
1、 Private Sub Form_Click()
Static SUM As Integer
I = 1
Do While I<=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub
运行程序,第一次单击窗体:
第二次单击窗体:
2、 Private Sub Form_Click()
Print "*"; Tab(6); 2, Tab(15); 5
For I = 15 To 16
Print I;
For j = 2 To 6 Step 3
Print Tab(3 * j); j * I;
Next j
Next I
End Sub
程序运行结果:
五、编程题
(一)窗体中有图片框(Picture1)和计时器(Timer1)两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下脚移动,每次向左、向右移动100twip(20分之一像素)。请填空:
Private Sub Form_load( )
(1) =loadPicture(“c:\pic\ball.ico”)
(2) .Interval=200
End Sub
Private Sub Timer1_Timer( )
Static x , y As Integer
x=x+100
y=y+100
Picture1.Move (3)
End Sub
(二)有一个单击按钮过程,其作用是产生50个60~100的随机数,统计其中被6整除余2的个数,并将这些数输出。请填空:
Private Sub Command1_Click()
Dim x As Integer, N%
Dim Counter As Integer
(1) Timer
For N=1 To 50
X=Rnd()* (2)
If (3) =2 Then
Print x
Counter= (4)
(5)
Next N
Print Counter
End Sub
《VB程序设计与应用》参考答案
一、填空题 1 2 3 4 5
答案 可视化设计 事件驱动编程 窗体(form) 控件 集合
题号 6 7 8 9 10
答案 特殊子程序 双精度 动作 Print 选中
题号 11 12 13 14 15
答案 高度(Height) 宽度(Width) 中央 工程1 34.6
题号 16 17 18 19 20
答案 0 空 False Picture Cls
二、选择题 1 2 3 4 5
答案 C A B C A
题号 6 7 8 9 10
答案 D D A B B
题号 11 12 13 14 15
答案 D A A A D
题号 16 17 18 19 20
答案 C A C C B
三、判断题 1 2 3 4 5 6 7 8 9 10
答案 Х Х Х √ Х √ √ √ √ Х
11 12 13 14 15 16 17 18 19 20
答案 √ Х √ √ Х Х √ Х Х √
四、程序阅读题:
(一) (10分)
1 、 55
2、 110
(二)、 (10分)
* 2 5
15 30 75
16 32 80
五、编程题 (20分)
(一)1、Picture1.Picture
2、 Timer1
3、 x ,y
(二) 1、 Randomize
2、 Rnd()*41+60
3、 x Mod 6
4、 Counter+1
5 End If
一、单项选择题(共10分)
1.在代码中引用一个控件时,应使用控件的(B)属性。
A.Caption B.Name C.Text D.Index
2.设变量x = 4,y = -1,a = 7,b = -8,下面表达式(A)的值为“假”。
A.x+a <= b-y B. x > 0 AND y < 0
C.a = b OR x>y D. x+y > a+b AND NOT (y < b)
3.表达式Int(Rnd*71)+10产生的随机整数范围是(C )。
A.(10,80) B.(10,81) C.[10,80] D.[10,81]
4.函数Sgn(3.1416)的返回值是(C )。
A.-1 B.0 C.1 D.以上都不对
5.67890属于( D )类型数据。
A.整型 B.单精度浮点数 C.货币型 D.长整型
6.下列变量名中正确的是(D)。
A.3S B.Print C.Select My Name D.Select_1
7.下列赋值语句( A )是有效的。
A.sum = sum -sum B.x+2 = x + 2 C.x + y = sum D.last = y / 0
8.以下的控件或方法具有输入和输出双重功能的为(B)。
A.Print B.Textbox C.Optionbutton D.Checkbox
9.若要获得列表框中被选中的列表项的内容,可以通过访问(D)属性来实现。
A.Name B.ListIndex C.ListCount D.Text
10.下列代码的运行结果为(B )。
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
End Sub
A.2 B.3 C.4 D.5
二、填空题(10分)
1.写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 。
2.代码窗口中有两个下拉列表框:左侧是(对象)列表框,右侧是过程列表框。
3.写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式LEFT(“Visual Basic 6.0”,6)。
4.函数Len(“abcdef”)的返回值是(6) 。
5.设a = 2,b = 5,c = -2,d = 100,则a > b >= c AND a < b >= d的值为False 。
三、将下列数学表达式转换为VB表达式。(6分)
1.a2+2ab+b2 : a^2+2*a*b+b^2
2.8exln10 :8*exp(x)*log(10)
3.2sin(450)cos(450) :2*sin(3.1416/4)*cos(3.1416/4)
6.在VB中,用户定义常量使用 Const 语句,声明变量使用 Dim语句。
还没考得吧
外研版八年级英语上册期末测试题
外研版 八年级 英语上册的期末测试快到了,期末考试与学生的学习是息息相关的。接下来是我为大家带来的关于外研版八年级英语上册的期末测试题,希望会对大家有所帮助。 外研版八年级英语上册期末测试题目 一、 听力测试(满分20分) (一)听 句子 ,选择适当的答语。(每个句子读一遍)(每小题1分,满分5分) 1. ...
六年级语文下册期末毕业试题
小升初题目来源主要是招生学校七年级第一学期或七年级第二学期的期末考试试题。以下是我整理的2018年六年级语文下册期末毕业试题,欢迎参考阅读! 一、基础知识(24分) 1.请把下面的句子工工整整地抄写下来,不用空格,注意加上标点。(3分) 移舟泊烟渚,日暮客愁新,野旷天低树,江清月近人。 2. 给下面加点的字...
求2014-2015学年达州地区九年级数学,外语,物理化学期末考试试题!
2004-2005第二学期物理化学(II)期末考试试题(B卷)谁有答案啊 有不会的可以直接问老师的 苏教版一年级数学期末考试试题 最可宝贵的就是今天,最易丧失的也是今天,在网上是问不到答案的哈 多花时间思考问题,直接抄袭答案会让自己损失很宝贵的思考时间的 满意采纳 求成都大学物理化学期末考试试题~随便哪一年的都可以...
市场营销学期末考试复习题谁有?
市场营销学期末考试复习题谁有?市场营销学期末考试试题 一、单项选择题(本大题共20小题,每小题1分,共20分)在每小题列出的四个选项中只有一个选项是符合题目要求的,请将正确选项前的字母填在题后的括号内。1.市场是“买主和卖主进行商品交换的场所”的概念是出自于(A.传统的观念 B.经济学...
2017四年级期末考试语文试题
四年级的学生想要提高语文成绩,那就 一定要多做试题练习来巩固语文知识。下面是我为大家整理的2017四年级期末考试语文试题,希望对大家有用! 2017四年级期末考试语文试题一 一、看拼音写汉字。 cuī cù dài màn mái zàng yāo qǐng shù shǒu dài bì ( )( )( ) ( )( ) shēng shū fán yǎn ...
2017小学语文四年级期末考试试题
知道小有建树答主 回答量:105 采纳率:66% 帮助的人:69.3万 我也去答题访问个人页 关注 展开全部 学习语文要多看书,拓宽自己的视野。还要多做试题,巩固学过的知识。下面是我为大家整理的2017小学语文四年级期末考试试题,希望对大家有用! 2017小学语文四年级期末考试试题一 一、我会看拼音写词语。(10...
求九年级上册所有的期末考试的试题!!!
您可以去百度文库去查,我这里有一些 下列各题均有四个选项,其中只有一个是正确的,请把正确选项前的字母填在题后的括号内。1.已知2x=3y(y≠0),那么下列比例式中正确的是( )A. B. C. D.2.抛物线 的顶点坐标是( )A.(1,3) B.(1,-3) C.(-1,3) ...
大一英语期末考试试题(3)
A. on a chance B. on the chance C. by chance D. by a chance 39. If you try to learn too many things at a time, you may get ___.A. puzzled B. perplex C. confused D. bewildered 40. He is very much critical of the government’s ___ policies.A. economics ...
小学六年级第一学期期末考试测试题
小学六年级第一学期期末考试测试题 我来答 40个回答 #热议# 二阳是因为免疫力到期了吗? xawxjyjxgz 2011-12-30 知道答主 回答量:35 采纳率:0% 帮助的人:12.2万 我也去答题访问个人页 关注 展开全部 测试卷一、拼音。(7分) 1、在加点字的正确读音下画上横线。(2分) 蜷缩(juǎn...
二年级上册语文期末测试题参考
为了方便各位同学们为接下来的期末考试做好准备,我们为大家准备了一篇 二年级上册语文期末测试题 ,希望大家认真练习,相信一定会帮到大家的!一、看拼音,写词语。lìshyǐjīngjiàoshìzxìqízhì yzhuyōngbàodàoyǐngxìngfúróngyì 二、给下面加点的字选择正确的读音,打上“√”。豌(wānwǎn)...
登版特普:[答案] 2. for i=10 to 500 step 2 sum=sum+i next i print sum 3. for i=200 to 1000 if i mod 3+i mod 5=0 then sum=sum+i next print sum 5. for i=1 to 3000 if i mod 17=0 or i mod 23=0 then j=j+1 next print j 6. for i=100 to 650 if i mod 3+i mod 7=0 then j=j+1 next print...
卫东区18698008634: VB趣味程序设计期末考试题 - ?
登版特普: 1.pi的泰勒展开式 Dim n As Single, d As Single n = 0 d = Val(text1.Text) Do Until 1 / (2 * n + 1)pi = pi + (-1) ^ n / (2 * n + 1) n = n + 1 Loop MsgBox pi * 42.?
卫东区18698008634: vb考试题 求解啊 !1) 输出1到100之间的所有整数.2) 计算1+(1+2)+(1+2+3)+…+(1+2+3+4+5+6+7+8+9)+(1+2+3+4+5+6+7+8+9+10)3) 输入含有若干个... - ?
登版特普:[答案] 第一题 for i=1 to 100 print i; if i mod 10=0 then print '10个换行 next print 第二题 sum=0 for i=1 to 10 for j=1 to i sum =sum+j next next print sum 第三题麻烦,要上机做了,先给你前两个 Private Sub Command1_Click() Dim maxw As String w = Split(...
卫东区18698008634: 期末VB机试题4,在线等! - ?
登版特普: 简单! Option Base 1 Private Sub Form_Click() Dim f(20) As Integer f(1...
卫东区18698008634: 跪求大哥大姐们帮我做下VB 考试题 - ?
登版特普: 1、窗体和控件2、在属性窗口中修改属性和用代码修改属性3、Form_Click4、引号" 星号#
卫东区18698008634: 近几年的VB考试题在哪有(带答案、免费的)??
登版特普: http://news.eduman.com.cn/news/Newkmk.shtml 上机题. 其它的也有 自己搜索下.
卫东区18698008634: VB考试简答题,谁来帮帮我啊,谢谢!~~~~~~急急急 - ?
登版特普: 定义数组后,为了使用数组,必须为数组分配所需要的内存区.根据内存区分配时机的不同,可以把数组分为静态(Static)数组和动态(Dynamic)数组.通常把需要在编译时分配内存区的数组叫做静态数组,而把需要在运行时分配内存区的...
卫东区18698008634: 急!!!用VB代码求1000以内的完数 -- 期末考试题啊!?
登版特普: '一个按钮里调用的过程 Private Sub Command1_Click() OutputWanNumber 1000 End Sub '求完数的过程 Sub OutputWanNumber(ByVal UpperBound As Integer) Dim i As Integer Dim j As Integer Dim s As Integer For i = 1 To UpperBound s = 0 For j = 1 To i \ 2 If i Mod j = 0 Then s = s + j Next j If s = i Then Print i & "是完数" Next i End Sub
卫东区18698008634: VB考试题,继续 - ?
登版特普: 1、语句Option Explicit与Visual Basic的默认设置一致.(B ) A对 B错2、表达式 NOT x3是等价.( B)还有x=3的情况 A对 B错3、Line控件没有Move方法.(A ) A对 B错4、VB编译生成的可执行文件不再需要VB的动态链接库文件.( B) A对 B错5、当复选框被选定,它的Value属性值为True.( B ) A对 B错
卫东区18698008634: VB考试题目求大神出手相助!?
登版特普: 添加 两个 listbox 和两个 按钮 Private Sub Command1_Click() If List1.List(List1.ListIndex) = "" Then Exit Sub If List2.ListCount < 5 Then List2.AddItem List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex Else MsgBox "超过5门课程,不...