vb程序设计急急急

《VB程序设计》考试急急急~

1、C
2、A
5、C
6、D
7、D
8、C
9、D
10、A
11、A
12、D
三、填空题：
1．语句“Dim C As String ”定义的变量C，可用于存放控件的Caption的值。
2．用Dim X(0 to 5) As Integer 语句定义的数组占用 36 个字节的内存空间。
3．在数值常数后加符号“ ! ”，隐含表示单精度浮点数。
4．S1=“CABBA”，则表达式Instr(S1,CHR（65）)的值是 2 。
5．表达式81 \ 7 Mod 2 ^ 2的值是 3 。
6．已知Ch$ = "1345"，表达式Val("&H" + Left$(Ch$, Len(Ch$)/2))的值是 19 。
7．语句Print Not 10 > 15 And 8 < 5 + 2的输出结果为 False 。
8．设x为一个两位数，将其个位和十位数交换后所得两位数的VB表达式是 (X Mod 10) * 10 + X \ 10 。
9．用随机函数产生一个两位整数的VB表达式是 Int(99 * Rnd + 1) 。
10．算术式ln(x)+sin(30°)的VB表达式为 Log (x) + sint(30 * 3.1415926 / 180) 。
11．声明单精度常量PI代表3.1415926的语句是 Const PI = 3.1415926 。
12．#20/5/01#表示 Date 类型常量。
13．Int（-6.7）的值是 -7 。
14．设I为大于0的实数，写出大于I的最小整数的表达式 Int(I) + 1 。
15. Right(Str(-123.45),4)的值是 3.45 。
16．面向对象的程序设计是一种以 事件 为基础，由 消息 驱动对象的编程技术。
17．面向对象的程序设计的核心是 对象 。
18．窗体是用来存放 控件 的容器。
19．改变控件在窗体中的左右位置，应修改该控件的 Left 属性。
20. 在打开某窗体时，初始化该窗体中的各控件，应选用 Load 事件。
21．新建工程时系统会自动将窗体标题设置为 Form1 。
22．控件和变量均称为 对象 。

Private Sub Form_Click()
Dim m As Integer, nMax As Integer, nMin As Integer
m = InputBox("输入成绩（0≤成绩≤100），负数结束。")
Print m
nMax = m
nMin = m
Do While m >= 0
If m > nMax Then nMax = m
If m < nMin Then nMin = m
m = InputBox("输入成绩（0≤成绩≤100），负数结束。")
Print m
Loop
Print "最高", nMax
Print "最低", nMin
Print "差", nMax - nMin
End Sub

Dim a(100) As Integer '用于存放100个箱子的密码，为 0 表示箱子 空
Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
Dim i, B As Integer
B = 0
For i = 1 To 100
If a(i) = 0 Then
B = i
Exit For
End If
Next
If B <> 0 Then
'这儿可以打开箱子
TextBox1.Text = "请用 " & B & " 号箱子"
Dim pass As Integer
Dim Exist As Boolean = False
Do
pass = Int(Rnd() * 9000 + 1000) '产生四位数的密码
For i = 1 To 100 '查找一下有无相同的密码
If a(i) <> 0 Then
If a(i) = pass Then
Exist = True
Exit For
End If
End If
Next
Loop While Exist '若有相同的密码，则再找一个
a(B) = pass '取物后再将其清 0
'此处打印密码纸（密码为 pass）
TextBox1.Text &= vbNewLine & "请保存好密码纸！"
Else
TextBox1.Text = "抱歉，箱子全满！"
End If
End Sub

’这是VB.NET代码，再VB中也能用的！

没看明白。。。

---

惠东县13599612248： VB程序设计 - ？
木郑愈酚： 大哥你这个问题很简单,只不过在这里不能把代码全给你,你的问题描述的不清楚,我吧几个关键的技术点告诉你:字体变化有font属性来实现 按钮始终在窗体又下放可以再窗体的form_Resize中设置 按钮的top和left属性让他们分别=me.whith-50,me.heght-50 (4)4个按钮每单击一次都在窗体上显示“欢迎使用VB”.这个用print ＂欢迎使用VB＂ (2)文本框控件随窗体的大小而调整大小的代码 这个text1.whith=me.whith/2,text2.hethg=me.heght/2 (3)结束程序运行的代码(命令按钮).me.end 就可以了

惠东县13599612248： vb程序设计代码,急急？
木郑愈酚： Private Sub mnuColorbule_Click() Text1.ForeColor = vbBlue End Sub Private Sub mnuColorgreen_Click() Text1.ForeColor = vbGreen End Sub Private Sub mnuColorred_Click() Text1.ForeColor = vbRed End Sub Private Sub mnuEffectBold_Click(...

惠东县13599612248： 紧急求助一个VB程序设计~谢谢帮忙 - ？
木郑愈酚： 设置控件:一个COMMANDBUTTON控件,叫COMMAND1一个LABEL控件,叫LABEL1设置代码:Private Sub Command1_Click()Dim R, XX = 0.01While X < 8848000X = X * 2R = R + 1WendLabel1.Capt...

惠东县13599612248： 设计一个简单的VB程序 - ？
木郑愈酚： 变量定义在最上面,最好变量名x,y换别的x1,y1等 Dim x1 As Integer Private Sub Command1_Click()'+按钮 x1 = x1 + 1 Me.Caption = x1 End Sub Private Sub Command2_Click()'-按钮 x1= x1 - 1 Me.Caption = x1 End Sub

惠东县13599612248： 急~!!!求VB程序设计~!!! - ？
木郑愈酚： & IIf(a = 1, &quot.＂＂ + ＂ & Sqr(d) /Private Sub Command1_Click() a = Val(InputBox(＂ b Else d = b ^ 2 - 4 * a * c If d >)) Print ＂ (2 * a) & ＂ - &quot:＂ If a = 0 And b = 0 And c = 0 Then Print ＂x的解是全体虚数;x1 = ＂ & -1 * b / & -1 * b / (2 * a) ...

惠东县13599612248： 急急急~~~ 编写个VB程序,一定要有详细步骤.题目如下:？
木郑愈酚： '程序所需要的控件为: label1 label2 text1 list1 command1 command2 '以下是程序的代码,添加控件后复制即可 '========================================================================= '===========================以...

惠东县13599612248： 什么是VB程序设计? - ？
木郑愈酚： VB 是Visual Basic编程语言 编写计算机程序需要使用计算机编程语言.计算机编程语言是人和计算机“对话”的桥梁.就像人类的语言一样,计算机编程语言也有很多.目前较为广泛使用的语言有“C++”、“Pascal”、“Basic”等.在众多...

惠东县13599612248： 急啊!!!vb程序设计 - ？
木郑愈酚： 在Command1按钮的点击事件里写 label1.caption=“百位数:＂ & mid(text1.text,1,1) & ＂ 十位数:＂ & mid(text1.text,2,1) & “ 个位数:＂ & mid(text1.text,3,1) 试试吧~

惠东县13599612248： VB程序设计问题 急急急啊!!! - ？
木郑愈酚： 第一题:答案A:的第一个元素下标是:a(-2,0),因为使用了option base 0,所以它是错的 答案c:a(4,3)表示a(0 to 4,0 to 3)它有5*4个元素,所以错误 答案d:同A,也是错的 只有答案B正确 它有4*3个元素 第二题:调用fun过程 stlen=len(st)=7 for ...

惠东县13599612248： 求大神帮设计一个VB程序 - ？
木郑愈酚： Dim i As IntegerDim j As IntegerDim n As IntegerDim StepCol As IntegerDim StepRow As IntegerDim Num As IntegerDim HSn As Integern = 10 '设置输出行数HSn = 1StepRow = 0Num = ...