vb程序设计题,请高手解答
图片不清,问题也不清楚,建议把问题描述清楚一些。
1. 如果未选定项目,那么ComboBox组合框控件的ListIndex属性值是( C )。 A. 0 B. 1 C. -1 D. 随机数 2. 可通过下列何种属性来设置或返回List列表框控件中当前选定项目的索引( A )。 A. ListIndex B. ListCount C. ListText D. LisItem 3. 数学式子Sin30°写成VB表达式是( B )。 A. Sin30 B. Sin(30) C. SIN(30°) D. Sin(30*3.14/180) 4. 以下哪一种结构不是Visual Basic语言的循环控制结构是( B )。 A. For结构 B. Select Case结构 C. While结构 D. Do结构 5. 结构化程序设计由3种基本结构组成,下面属于3种基本结构之一的是( B )。 A. 递归结构 B. 选择结构 C. 过程结构 D. 输入、输出结构 6. 能够实现“窗体总在最前端”界面效果的API函数是( A )。 A. SetWindowPos B. SetWindowAPI C. SetWindowShape D. DeclareAPI 7. 在窗体上画两个文本框(其Name属性分别为Text1和Tex12)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: Private Sub Command1_Click() x = 1:n=0 Do While x < 100 x = x * 10 n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为( B )。 A. 10 和0 B. 2和100 C. 3和50 D. 4和168 8. 应用程序打包后,其包文件的后缀是( A )。 A. .cab B. .exe C. .ocx D. .vbp 9. 下列可以用来存储图像供其他对象使用的控件是( C )。 A. ToolBar B. StatursBar C. ImageList D. TreeView 10. 如果仅需要得到当前系统时间,则可以使用哪个函数( A )。 A. Time B. Year C. Now D. Date 11. 键盘事件的执行顺序是( B )。 A. KeyPress、KeyDown、KeyUp B. KeyDown、KeyPress、KeyUp C. KeyUp、KeyDown、KeyPress D. KeyUp、KeyPress、KeyDown 12. Dim A(6, 6) As Integer定义的数组包含的元素个数是( B )。 A. 36 B. 49 C. 42 D. 动态变化 13. Dim I As Integer,则运行时变量I的初始值是( A )。 A. 0 B. 1 C. -1 D. 空值 14. 如果希望以模态方式显示窗体Form1,下列正确的语句是( C )。 A. Form1.Show 0 B. Form1.Show C. Form1.Show 1 D. Form1.Show 0,1 15. 要使窗体在运行时不可改变窗体的大小并没有最大化和最小化按钮,通过设置可达到此要求的属性是( B )。 A. MaxButton B. BorderStyle C. Width D. MinButton 16. 在窗体上画两个文本框,(其Name 属性分别为Text1和Text2)和一个命令按纽(其Name属性为Command1),然后编写如下事件过程( B )。 Private Sub Command1_Click() x = 0 Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) End Sub A. 1和0 B. 2和72 C. 3和50 D. 4和168 17. Dim A(1 To 6, 6) As String定义的数组包含的元素个数是( C )。 A. 36 B. 49 C. 42 D. 50 18. 将数据项“China”添加到列表框(List1中成为第一项,应使用的语句是( A )。 A. List1.AddItem"China",0 B. List1.AddItem"China",1 C. List1.AddItem"China", D. List1.AddItem"1,China" 19. 在Visual Basic中,变量的默认类型是( A )。 A. Integer B. Double C. Variant D. Currency 20. 与Load Form2等效的语句是( C )。 A. Form2.Load B. Form2.Visible=False C. Form2.Show D. Form2.Visible=True 21. 可通过何种属性判断List列表框控件的项目总数目( B )。 A. ListIndex B. ListCount C. ListText D. LisItem 22. 从一个字符串中的第3个字符开始,获取5个字符,应使用( B )。 A. Len函数 B. Mid函数 C. Left函数 D. Right函数 23. Timer控件可用于后台进程中,可在Timer事件内编程,要停止触发Timer事件,需要设置的属性是( A )。 A. Interval=0或Enabled=False B. Interval=0或Visible=False C. Visible=False =False 或Enabled=False D. Interval=0且Enabled=False 24. 关于语句行,下列说法正确的是( B )。 A. 一行只能写一条语句 B. 一条语句可以分多行书写 C. 每行的首字符必须大写 D. 长度不能超过255个字符 25. 按照变量的作用域可将变量划分为( B )。 A. 公有、私有、系统 B. 全局变量、模块级变量、过程级变量 C. 动态、常数、静态 D. Public、 Private、 Protected
Vb编程实现两个有序数组的合并,即二路归并数组A和数组B分别记录有一些数据,这两个数组上的数据都已经由小到大按顺序排列好。请用vb编写一个程序把这此数据合并到同一个数组之中,并使得合并后的数据全部按由小到大排列。
这就是所谓的“二路归并”。在编写这个程序时先进行说明一下,首先,大量数据的输入用inputbox()函数的方法显得很烦琐,特别在调试阶段,每次运行时都要输入一大堆数据。因此采用了ARRAY函数的输入方法。
为了使大量的数据在输出时看得清楚,我们在运行窗体上设置了一个文本框,并把文本框的属性MultiLine设为True,Scorllbars设为2(带竖直滚动条)。
Vb程序代码如下:
Private Sub Form_Click()
Dim a '定义了一个可变类型的数组
a = Array(1, 3, 5, 7, 9, 11)
Dim b
b = Array(2, 4, 6, 8, 10, 12, 14, 16, 18)
Dim c(1000)
pa = 0: pb = 0: pc = 0
ea = UBound(a) '可变数组A的下标的上界和下界可以用函数UBOUND()和LBOUND()得到(若没说明下标的下界一般是0)
eb = UBound(b)
Do Until pa > ea And pb > eb
If pa > ea Then ta = b(eb) + 1 Else ta = a(pa)
If pb > eb Then tb = a(ea) + 1 Else tb = b(pb)
If ta < tb Then
c(pc) = ta
pc = pc + 1
If pa <= ea Then pa = pa + 1
Else
c(pc) = tb
pc = pc + 1
If pb <= eb Then pb = pb + 1
End If
Loop
Print ea, eb, pc
Text1.Text = "数组A的元素:" & vbCrLf
For i = 0 To ea
Text1.Text = Text1.Text & a(i) & " "
Next i
Text1.Text = Text1.Text & vbCrLf & vbCrLf & "数组A的元素:" & vbCrLf
For i = 0 To eb
Text1.Text = Text1.Text & b(i) & " "
Next i
Text1.Text = Text1.Text & vbCrLf & vbCrLf & "合并后B的元素:" & vbCrLf
For i = 0 To pc
Text1.Text = Text1.Text & c(i) & " "
Next i
End Sub
当然,你可以把这些数据全部复制到一个数组之中再使用一个排序算法来处理一次,但这样的话,原来两个数组已经分别排好的顺序就没有利用上,能否利用原来已经排好顺序的特点使得算法高效一些?
注释步骤嘛,因为太累了,所以简写,估计能看个差不多
在窗体上放一个名为 text1 的TextBox控件,属性改为多行和带滚动条,再放一个按钮,按钮的响应程序如下:
Private Sub Command1_Click()
Const n = 30
Const m = 20
Dim a(n) As Integer, b(m) As Integer, c(m + n) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 1 To n
a(i) = 3 * i
Next i
For j = 1 To m
b(j) = 4 * j
Next j
i = n
j = m
p = 0 ' a数组取净标志
q = 0 ' b
For k = 1 To m + n
If a(i) >= b(j) And p = 0 Then ' a大取a
c(k) = a(i)
If i > 0 Then
i = i - 1
Else
p = 1
End If
ElseIf b(j) > a(i) And q = 0 Then ' b大取b
c(k) = b(j)
If j > 0 Then
j = j - 1
Else
q = 1
End If
End If
If p = 1 Then ' a用完取b
c(k) = b(j)
j = j - 1
End If
If q = 1 Then ' b用完取a
c(k) = a(i)
i = i - 1
End If
Next k
' 输出至 text1
Dim ts As String
For i = 1 To m + n
ts = ts + "i=" + Str(i) + ", c(i) = " + Str(c(i)) + Chr(13) + Chr(10)
Next i
Text1.Text = ts
End Sub
运行结果如下:
i= 1, c(i) = 90
i= 2, c(i) = 87
i= 3, c(i) = 84
i= 4, c(i) = 81
i= 5, c(i) = 80
i= 6, c(i) = 78
i= 7, c(i) = 76
i= 8, c(i) = 75
i= 9, c(i) = 72
i= 10, c(i) = 72
i= 11, c(i) = 69
i= 12, c(i) = 68
i= 13, c(i) = 66
i= 14, c(i) = 64
i= 15, c(i) = 63
i= 16, c(i) = 60
i= 17, c(i) = 60
i= 18, c(i) = 57
i= 19, c(i) = 56
i= 20, c(i) = 54
i= 21, c(i) = 52
i= 22, c(i) = 51
i= 23, c(i) = 48
i= 24, c(i) = 48
i= 25, c(i) = 45
i= 26, c(i) = 44
i= 27, c(i) = 42
i= 28, c(i) = 40
i= 29, c(i) = 39
i= 30, c(i) = 36
i= 31, c(i) = 36
i= 32, c(i) = 33
i= 33, c(i) = 32
i= 34, c(i) = 30
i= 35, c(i) = 28
i= 36, c(i) = 27
i= 37, c(i) = 24
i= 38, c(i) = 24
i= 39, c(i) = 21
i= 40, c(i) = 20
i= 41, c(i) = 18
i= 42, c(i) = 16
i= 43, c(i) = 15
i= 44, c(i) = 12
i= 45, c(i) = 12
i= 46, c(i) = 9
i= 47, c(i) = 8
i= 48, c(i) = 6
i= 49, c(i) = 4
i= 50, c(i) = 3
Private Sub Command1_Click()
Dim A() As Integer, N As Integer
Dim B() As Integer, M As Integer
Dim C() As Integer, NC As Integer
Dim I As Integer, J As Integer, TM As Integer
'……前面的关于A B数组什么来头我不写了 你知道的
'定义数组C大小
NC = M + N
rdim C(NC)
'把数组A装入C
For I = 1 To N
C(I) = A(I)
Next I
'把数组B装入C
For I = 1 To M
C(N + I) = B(I)
Next I
'对C进行从大到小排序
For I = 1 To NC - 1
For J = I + 1 To NC
If C(I) < C(J) Then
TM = C(I)
C(I) = C(J)
C(J) = TM
End If
Next J
Next I
End Sub
Option Explicit
Dim a(4), b(7), c(12)
Private Sub Command1_Click()
Dim i%, j%, k%, m%, n%
i = LBound(a): j = LBound(b): k = LBound(c)
m = UBound(a): n = UBound(b)
While i <= m And j <= n
If a(i) > b(j) Then
c(k) = a(i): i = i + 1: k = k + 1
Else
c(k) = b(j): j = j + 1: k = k + 1
End If
Wend
While k <= m + n - i - j + 1
If i > m Then
c(k) = b(j): j = j + 1: k = k + 1
Else
c(k) = a(i): i = i + 1: k = k + 1
End If
Wend
End Sub
理解错误了。。
VB程序设计 题目
题号:4 题型:单选题 内容:对象的边框类型由下列哪个属性设置 选项:c、BorderStyle 题号:5 内容:如下运算中运算优先级最高的是:图形:选项:d、^ 题号:6 题型:单选题 内容:在使用MsgBox输出时,如果按钮位置是空(默认参数),则相当于使用了参数 选项:b、VbOkOnly 题号:7 题型:单选题 内容...
【高分急求】VB考试选择试题!高手请进。
3.可以用作其它控件容器的控件有(C:窗体控件,框架控件,图片框控件).4.INT(100*RND(1))产生的随机整数的闭区间是(A:[0,99] ).5.要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值(A:Caption ).6.下列关于属性设置的叙述错误的是(B:一个控件具有什么属性是VB预先设计好的,用户...
web程序设计选择题及参考答案
web程序设计选择题及参考答案 一、选择题 1在HTTP协议的“请求\/响应”交互模型中,以下说法中错误的是( )。A.客户机在发送请求之前需要主动与服务器建立连接 B.服务器无法主动向客户机发起连接 C.服务器无法主动向客户机发送数据 D.以上都错 参考答案:D 2关于浏览器对象之间的从属关系,正确的说法...
JAVA语言程序设计题请高手回答
private float real; \/\/实部 private float imagin;\/\/虚部 public Complex(){\/\/无参默认为(0, 2)this.real = 0F;this.imagin = 2F;} public String toString(){\/\/以a+bi的形式输出的复数 return real + "+" + imagin + "i";} \/\/ a+ bi + (c+ di) = (a+c) + (b+d)i p...
C++程序设计问题,请高手看下这个程序有什么问题,怎么改正?
楼主你好 代码修改如下:include<iostream> using namespace std;float calculate_1(float r) { return (float)3.14*r*r;} float calculate_2(float a,float b) { return a*b;} float calculate_3(float l) { return l*l;} int main() { cout<<"请输入图形类型:(1圆,2长方形,3...
C语言程序设计题 找高手必须稳对的 明天考试
1.循环程序;计算Sn=a+aa+aaa+...+aa+a的值 其中a是一位数字 include<stdio.h> void main(){ int n,sum=0,i,tmp;printf("input a digit:");scanf(%d",&n);for(i=0,tmp=0;i<n;i++){ tmp=tmp*10+n;sum+=tmp;} for(;i>0;i--){ tmp=tmp\/10;sum+=tmp;} printf("...
各位程序设计高手请帮帮忙
c++程序设计:书店销售管理软件:本系统使用计算机对书店的销售进行管理,该书店拥有最多图书不超过200本,每本图书的信息包括:书名、书号(出版序列号)、编号、出版社、作者、定价、库... c++程序设计:书店销售管理软件: 本系统使用计算机对书店的销售进行管理,该书店拥有最多图书不超过200本,每本图书的信息包括:书名、...
JAVA程序设计课程作业,请高手帮忙啊
4.B 5.A 区分 6.A 抽象类不一定要有抽象方法 7.B 都转为数据类型最大的那个类型再运算 8.A 这个表述=。=其实参数类型和个数都相同的情况下,还可以根据参数的排列来区别方法 9.A String不可变字符串!10.A 同上 11.B 这个题目怎么说呢,如果父类有private成员,则子类虽然继承到了这个成员...
求汇编语言与程序设计高手来。我需要组一份汇编试题请高手给做下。谢 ...
MOV AX, [BX][SI] 物理地址 21001H (AX)=7812H 6.在下列程序段括号中,填入正确的答案。DATA SEGMENT BUF DB 12H,56H DATA ENDS 7.指出下列指令错误原因,填入括号中。A. MOV AX,BL ;源操作数与目标操作数长度不同 B. MOV CS,AX ;CS寄存器不能作为目标操作数 C. DEC GAMA[...
《汇编语言程序设计》复习题答案求救,分析题!高分,谢谢!
MOV B,AX ;B=15H MOV AX,2[BX] ;2[BX]的意思是[BX+2],所以AX=05H ADD AX,B ;15H+05H=1AH MOV A,AX ;最后是1AH 六.程序填空 第一空 0FH 第二空 4AH.这一题的基本思想就是把 BX 循环右移四位,取BL,赋给AL,与上0FH,把高四位清零,得低四位,再...
佼虹暖宫:[答案] Private Sub Command1_Click() Dim x As Single x = Val(InputBox("输入一个正实数")) MsgBox Round(x, 3) & vbCrLf & "平方=" & Round(x * x, 3) & vbCrLf & "平方根=" & Round(Sqr(x), 3) End Sub
阿荣旗15658536433: VB程序设计题——随机产生20个大于0小于100的整数,并分别计算出所有奇数和所有偶数的和. - ?
佼虹暖宫:[答案] private sub command1_click() dim js,os,i,a for i=1 to 20 a=int(Rnd*99)+1 if a mod 2=0 then js=js+i else os=os+i next print "奇数之和=" & js print "偶数之和=" & os end sub
阿荣旗15658536433: VB编程题目,高手路过就解答下? - ?
佼虹暖宫: Private Sub Form_Click() m1 = InputBox("输入m") n1 = InputBox("输入n") If m1 > n1 Then '为了求最小公倍数,增加m,n变量 m = m1: n = n1 Else m = n1: n = m1 End If 'm>n r = m Mod n Do While r <> 0 m = n n = r r = m Mod n Loop Print m1; ","; n1; "的最大约数为"; n Print "最小公倍数=", m1 * n1 / n End Sub其实 百度下就能找到很多答案
阿荣旗15658536433: VB程序设计的题目,高手帮我看下.阅读下面的程序,写出执行结果.Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=3:b=3:c=2... - ?
佼虹暖宫:[答案] 第一题 3 3 3 2 第二题 14
阿荣旗15658536433: VB程序设计题:任意三个数ABC,将其按由大到小的顺序显示出来 - ?
佼虹暖宫:[答案] 假设要比较的三个数输入在Text1,text2,text3,结果放在text4 Private Sub Command1_Click() Dim a,b,c,d As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a If b If a Text4.Text = a & " ," & b & " ," & c End Sub
阿荣旗15658536433: VB程序设计,从键盘任意输入一个X的值,求以下分段函数的值:(30分):Y=X+2(X>0) Y=0(X=0) Y=X2 (X - ?
佼虹暖宫:[答案] private sub command1_click() input "x=";x select case x case is>=0 y=x+2 case 0 y=0 case is=0 y=x+2 elseif x=0 y=0 else y=x-2 endif "y=";y endsub
阿荣旗15658536433: 一道计算机VB编程题.求高人解答.谢谢.?
佼虹暖宫: Private Sub Command1_Click() s = 2 For i = 3 To 1000 For j = 2 To i - 1 If i Mod j = 0 Then GoTo 10 End If Next j s = s + i 10: Next i Print s End Sub
阿荣旗15658536433: 一些VB的题,求高手回答 .1、语句Print“5*20”的输出结果是___?(a“5*20” b出错 c5*20 d100)2、下列可作为VB程序中的变量名的是——?(A.a#a B.4a... - ?
佼虹暖宫:[答案] 1、C 2、D 3、5 4、(cos(a+b))^2+5*exp(2) 5、Sin(25°) 6、T>1.7AND W
阿荣旗15658536433: 【高分】5道VB程序题目,有劳各位帮忙解答一下 - ?
佼虹暖宫: 1.Private Sub Form_Click()x = 5For i = 1 To 20 Step 2x = x + i \ 5Next iPrint xEnd Sub单击窗体,将5作为初始值给x,然后以i为计数进行循环,从i=1循环到i=20,每...
阿荣旗15658536433: 一道vb程序设计题目{急求答案} - ?
佼虹暖宫: Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Me.ScaleWidth / 2 Text1.Height = Me.ScaleHeight / 2 Command1.Left = Me.ScaleWidth...