相关试卷

1、使用Access软件打开数据库，部分界面如下图所示，下列说法正确的是（）

A、当前数据库包含3张数据表 B、“学生联系”数据表有3条记录 C、可以将Access数据表中的数据导出到Excel D、在数据表“学生联系”中输入多条记录时，可以先不输入学号

查看解析
2、某算法的部分流程图如图所示，执行这部分流程后，输出c的值是（）

A、50 B、34 C、55 D、60

查看解析
3、使用WinHex软件查看字符“2017 第一学期”的内码，部分界面如图所示。下列说法正确的是（）

A、原文包含4个ASCII码 B、这些字符的内码共占10个字节 C、由图中可以推出关系表达式“10”>“2”的值为True D、字符“期”的内码是“C6 DA”

查看解析
4、某协议的主要功能是完成对数据包的确认、流量控制和网络拥塞；自动检测数据包，并提供错误重发的功能，该协议的简称是（）

A、HTTP B、SMTP C、TCP D、POP

查看解析
5、下列描述中正确的是（）

A、IE浏览器可以解释并执行HTML语言 B、网上交流表达信息时要遵循一定的标准，目的是信息表达的数字化 C、商家将超市APP的链接地址制作成二维码过程属于信息的发布 D、通过无线网络传输的信息不依附与任何载体

查看解析
6、小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。
用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示：


(1)、自摘收费程序所用的算法是（填：解析算法/枚举算法）。

(2)、为实现上述功能，请在划线①和②处填入合适的代码。
Dim m As Integer
Private Sub Command1_Click()
Dim n As Integer, s As Integer
Dim w As Single, f As Single
n = Val(Text1.Text)              '输入大人人数n
w = Val(Text2.Text)             '输入重量w
f = 20 * n + 10 * w              '计算无优惠的费用f
s = 0
For i = 1 To m                            '计算桔子总数
s = s + i * i
Next i
If s=  Then '判断是否拿到优惠计算费用
     f = f * 0.5 + s * 0.3'计算优惠后的费用
     Label7.Caption = "恭喜你，这是优惠后的费用！"
Else
     Label7.Caption = "很遗憾，你没有算对哦！"
End If
Label4.Caption = Str(f)        '输出最后的费用f
End Sub
Private Sub Form_Load()
Randomize
m =               '随机产生15层及以内的桔子层数不含0
Text3.Text = Str(m)
End Sub

(3)、若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用元。

查看解析
7、在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如图所示：

(1)、在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性。

(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Long, m As Integer
Dim a(0 To 9) As Integer
n = Val(Text1.Text)
List1.Clear
For i = 0 To 9
a(i) = 0
Next i
Do While n > 0
t = n Mod 10
a(t) = a(t) + 1

Loop
m = a(0)
For i = 1 To 9
If a(i) > m Then m = a(i): k = i
List1.AddItem Str(i) & "：" & Str(a(i)) & "个"
Next
Label2.Caption = "出现最多的数字是：" +
End Sub

查看解析
8、利用格里高利公式求，直到最后一项的值小于0.0001为止，输出的值。
Private Sub Command1_Click()
    Dim Pi As Single, t As Single
    Dim n As Integer, s As Integer
    Pi = 0
    t = 1: n = 1:s =1
    Do While Abs(t) >= 0.0001
        Pi = Pi + t
        n =
        s=
        t = s *1 / n
    Loop
    Text2.Text =
End Sub

查看解析
9、对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下,请完善以下两处代码
s=Text1.Text
n=Len(s) 's是待判断的字符串
k=0:j=n
For i=1 to n/2
c1=Mid(s,i,1)
c2=Mid(s,j,1)
If c1 <> c2 Then k = k+1: Exit For
j=
Next i
If Then Label1.Caption="对称" Else Label1.Caption="不对称"

查看解析
10、一个大于1的自然数，除了1和它本身外，不能被其他自然数整除的数称为质数又称素数，下列程序用来判断文本框text1中输入的数是否素数，请完善以下三处代码。
Dim i As Integer, m As Integer ,flag as Boolean
m =
flag=
For i = 2 To int(sqr(m))
If Then
flag=false
Exit For
End if
Next i
If flag=true Then
Text2.Text = str(m) +"是素数"
Else
Text2.Text = str(m) +"不是素数"
End if

查看解析
11、调试如下VB程序段，出现如图所示的错误信息。
For i = 1 To 10
If a(i) >= 0 Then
    n=n+1
    List1.AddItem Str(a(i))
Else
    m=m+1
    List2.AddItem Str(a(i))
Next
则该程序段出错的原因是缺少了（   ）

A、Next B、i C、End If D、For

查看解析
12、【加试题】《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，VB程序段如下：Private Sub Command1_Click(   )
k = 0                 '用来计数
Max = 600             '指定范围600以内
n = 9
Do While n <= Max
Loop
Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"
End Sub
方框中的代码由以下五部分组成：
① n=n+7
② k = k + 1
③ List1.AddItem Str(n)
④ End If
⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then
代码顺序正确的选项是（）

A、⑤①②③④ B、②⑤③①④ C、⑤③②④① D、⑤①③④②

查看解析
13、计算器中乘方运算实际上是通过累乘的方法实现的。实现计算器上x^y运算处理的算法部分流程图如第图所示，下列说法正确的是（）

A、框图①中该填入的是f←x*j B、框图①中该填入的是f←f*j C、j←j+1被执行了x次 D、j←j+1被执行了y次

查看解析
14、有如下Visual Basic程序段：
S=0：k=1
Do while k <=4
If 8/k >=3 Then s=s＋k
k=k＋1
Loop
该程序段运行后，变量s和k的值分别是（）

A、3 , 3 B、5，4 C、3，5 D、4，5

查看解析
15、某算法的部分流程图如图所示，执行这部分流程后，变量a、b、c的值分别是( )

A、3 6 9 B、4 6 9 C、3 24 33 D、4 24 33

查看解析
16、某VB程序设计界面如图所示，下列说法正确的是（）
①工程文件是“工程1 .vbp” ②将text属性值删除，图中①处将不会显示“text1” ③该窗体中共有3个对象 ④窗体名称是“整除问题”

A、①② B、②③ C、①③ D、②④

查看解析
17、执行如下VB程序段
S=0
For i=20 To 1 Step -5
S=S+1
Next i
Text1.text=str(s)
文本框中显示的值是（）

A、50 B、20 C、5 D、4

查看解析
18、VB中，能够正确表示代数式 $\frac{x^{3} + 1}{| x | + \sqrt{x}}$ 的是 ( )

A、x^3+1/abs(x)+sqr(x) B、(x^3+1)/abs(x)+sqr(x) C、x^3+1/(abs(x)+sqr(x)) D、(x^3+1)/(abs(x)+sqr(x))

查看解析
19、下列VB表达式中，计算结果为3的是（）

A、Abs(-3.2) B、Len("a_8") C、Sqr(3)+1 D、Int(2.9)

查看解析
20、在VB中，语句Text1.Text="无解"中的“Text”是（）

A、对象名 B、属性名 C、属性值 D、方法名

查看解析

上一页 1644 1645 1646 1647 1648 下一页跳转