请VB高手帮下帮

2025-02-22 23:06:47

推荐回答（2个）

回答1：

1.已知a=2, b=3, c=4, d=5，求表达式(a>b and b2. 要退出do...loop循环可以使用的命令为：______exit do________。
3.在模块“通用声明”段中加入Option Explicit语句是____强制声明_____作用，若要使某个控件不可显示，应对_____visible_____属性设置。判断文本框是否按了回车键是在____keypress_____中判断。
4.VB中建立一个应用程序分为以下几步进行1、需求分析2、模块设计3、程序设计4、安装调试5、打包生成
5. 为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为_______picture1.picture=loadpicture("d:\pic\a.jpg")
6. 执行下面的程序段后，i的值为 ___ 5.6 _____ ，s的值为___5 _____ 。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
7. 把条件1≤x<12写成VB关系表达式为__1<=x and x<12____。
8. 声明单精度常量PI代表3.14159的语句为___const PI=3.14159___。计时器触发事件发生的timer事件时间间隔为1秒，应该设置interval的值为___1000______。
9. 执行下面的程序段后，变量S的值为__9______。
S = 5
For i = 2.6 To 4.9 Step 0.6
S = S + 1
Next i
10. Do until 条件… loop 循环结构中，当条件为______假____时结束循环
11. 下面的程序按升序排列数组a中的10个整数，请将程序补充完整。
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(-2,5,24,58,43,-10,87,75,27,83)
For i=__________
For j=___________
If a(j)>=a(j-1) Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
_______________
For i=1 to 10
Print a(i)
Next i
End Sub
题目本身出错不回答了
If a(j)>=a(j-1) Then 后一个比前一个大交换位置那不成了降序。题目却要升序矛盾。。

二、选择(每个2分，共20分)：
(1) 设a=5，b=4，c=3，d=2下列表达式的值是_true_____。
　　3 > 2 * b Or a = c And b <> c Or c > d
　　 A)1 B)True C) False D)2
(2) 下列符号哪一个是VB中的合法变量名？( D )
A) IF B) 7AB C) A[B]7 D) AB7
(3) 假定有如下的窗体事件过程：
　　Private Sub Form_Click()
　　 a$ = "Microsoft Visual Basic"
　　 b$ = Right(a$, 5)
　　 c$ = Mid(a$, 1, 9)
　　 MsgBox a$, 34, b$, c$, 5
　　End Sub
　　程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是____C__。
　　 A) Microsoft Visual B) Microsoft
　　 C) Basic D)5
(4) 设a = "a"，b = "b"，c = "c"，d = "d"，执行语句x=IIf((ad),”A”,”B”)后，x的值为 _C_____。
　　 A)”a” B)”b” C)”B” D)”A”
(5) 为了使命令按钮（名称为Command1）右移200，应使用的语句是__C____。
　　 A) Command1.Move -200
　　 B) Command1.Move 200
　　 C) Command1.Left = Command1.Left + 200
　　 D) Command1.Left = Command1.Left - 200
(6) 有子程序定义 Public Sub aaa(a as Integer, b as Single),正确的调用形式是 ___C___
A Call aaa(,) B Call sub(1,1.2) C aaa 1,1.2 D sub 1,1.2
(7) 下面程序的执行结果为_____C______
Private Sub Command1_Click()
x=1:y=2:z=3
X=y:y=z:z=x
?z
End Sub
A 0 B 1 C 2 D 3
(8) 下面程序的执行后显示的结果为_____D_____
Private Sub Command1_Click()
a=3
While a<=50
A=a*a
Wend
print a
End Sub
A 3 B 9 C 27 D 81
(9) 以下哪项不是VB的特点：____B______
A 可视编程 B 算法设计 C 事件驱动 D 面向对象
(10) 下面程序的循环次数为( A )
Private Sub Command1_Click()
For i= 8 To 35 step 3
print I
Next i
End Sub
A 10 B 9 C 27 D 28

回答2：

1.true
2.exit do
3.强制显式声明模块中的所有变量 keydown visible
4.
5.loadpicture
6. 5 5.6
7. x>=1 and x<12
8. const PI=3.14159
9. 9
10. true
11.

Dim a
a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83)
For i = 1 To 8
For j = i + 1 To 9
If a(j) >= a(j - 1) Then
a1 = a(i)
a(i) = a(j)
a(j) = a1
End If
Next j
Next i
For i = 1 To 9
Print a(i)
Next i

二
1. b
2. d
3. a
4. c
5. c
6. d
7. c
8.d
9. d
10. a

最新问答

写一个描写人物心情的句子，用上“忐忑不安“

号称日不落帝国，英国崛起的过程是怎样的？

2019年底的苹果11 64g内存卖多少钱？

我想买一辆蓝牌小货车，不知道哪个牌子的好，4万左右的

农历二零零九年公历二零壹零年算哪个生肖

电路如图所示,用电源等效变换法求解,则电流i= a？