帮忙做VB作业 求帮助~！谢谢嗯~

VB简单作业，求大神们帮助啊！~

Private Sub Form_Load()
Text2.Locked = False
Text3.Locked = False
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2 = Val(Text2) + 1
Text3 = Val(Text3) + Val(Text1)
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
If Val(Text1) > 0 Then Text1 = ""
End If
End Sub

1、D
2、d
3、b
4、
5、c
6、c
7、
8、
9、C，试题不完整，估计着应该是C
10、我知道D对，其他的不清楚，自己打开软件 试下就知道了、
11、B
12、A
13、A（在VB6.0里，应该是有 4*5=20 ，默认状态下是总0开始的，即a(0,0)...a(3,4) 共20 个，VB.NET 里可能是从1开始的，其他的答案看起来都不对！）
14、C
15、B

填空题：
1、
2、F8
3、Enable
4、
5、
6、14

这么多！

---

白云矿区15564219726： 帮忙做一下VB题,救急,多谢了! - ？
傅锦妇必： 1、 属性ScaleWidth与ScaleHeight分别用来表示对象的(). C) 对象内部的宽度、高度 2、 在窗体的属性中,()属性是用来标志一个显示的位置. B) CurrentX, CurrentY 3、 常量vbCrLf与下列()表达式等价. A) Chr$(13)4、 函数MsgBox...

白云矿区15564219726： 求帮做VB作业 - ？
傅锦妇必： 1、D2、d3、b4、5、c6、c7、8、 9、C,试题不完整,估计着应该是C10、我知道D对,其他的不清楚,自己打开软件 试下就知道了、11、B12、A13、A(在VB6.0里,应该是有 4*5=20 ,默认状态下是总0开始的,即a(0,0)...a(3,4) 共20 个,VB.NET 里可能是从1开始的,其他的答案看起来都不对!)14、C15、B 填空题:1、2、F83、Enable4、5、6、14

白云矿区15564219726： 呵呵 明天交VB作业 哪位计算机大师帮帮忙啊 谢谢 - ？
傅锦妇必： 第一题 放2个输入眶用来输入头数和脚数 还有一个按钮用来计算 结果显示在窗体上 2个输入眶和按钮最好放在窗体的靠下的位置 因为输出的结果是从窗体上方开始打印的 如果控件放在上面有可能会被遮挡掉 代码如下 Private Sub Command1_...

白云矿区15564219726： VB选择题,请帮忙做一下,谢谢 下列哪个程序段不能分别正确显示1!、2!、3!、4!的值(A) For i=1 to 4(B)For i = 1 to 4 n=1 for j =1 to iFor j=1 to i n=1n=n*j... - ？
傅锦妇必：[答案] C C未定义J的取值范围,NEXT J 出错.

白云矿区15564219726： 谁能帮我编一个简单的vb程序,我要交毕业作业,跪求啊!急需..谢谢咯 - ？
傅锦妇必： Option Explicit Private WithEvents Timer1 As Timer Private WithEvents Label1 As Label Dim GFangXiang As Boolean Dim HWB As Single Dim She() As ShenTi Dim X As Long, Y As Long Dim ZhuangTai(23, 23) As Long Private Type ShenTi F ...

白云矿区15564219726： 帮忙做个VB作业,谢谢!？
傅锦妇必： 添加个窗体,加个TIMER控件,复制一下代码,2个问题都处理了 Private Sub Form_Load() Label1.Caption = ＂求学到渝工,事业必成功＂ Label1.Left = Me.Width Label2.Left = Me.Width Label2.Top = Me.Height Timer1.Interval = 100 End Sub ...

白云矿区15564219726： 谁能帮我做个VB题目?？
傅锦妇必：Option Base 1 Dim a() Public Sub sum(a()) Dim max, min, aver, sun sun = 0 max = a(1) min = a(1) For i = 2 To UBound(a) max = IIf(max >= a(i), max, a(i)) min = IIf(min <= a(i), min, a(i)) sun = sun + a(i) Next i Text2 = ＂最大值为＂ & max Text3 = ＂...

白云矿区15564219726： 求高手帮做VB题 谢谢拉 - ？
傅锦妇必： 第一个题目看不懂.写第二个.dim os,n,m,i,c c=1 m=1 do while abs(m)>=0.0001 n=n+1 for i=1 to n c=c*i next m=(-1)^n*(1/c) os=os+m loop? os

白云矿区15564219726： VB程序设计作业怎么做,请教高手帮忙!!!!! - ？
傅锦妇必： Private Sub C1_Click() If Op1(0).Value = True Then LC 7 If Op1(1).Value = True Then LC 10 If Op1(2).Value = True Then Text1.Text = 2 + 3 End Sub Sub LC(i As Integer) Dim j As Integer s = 1 For j = 1 To i s = s * j Next Text1.Text = s End Sub

白云矿区15564219726： 我的VB作业 谁帮我解决下 谢谢了？
傅锦妇必： Option Explicit '大写字母 Private Sub Command1_Click() Dim CH As Integer Randomize CH = Int((90 - 65 + 1) * Rnd + 65) Form1.Print Chr(CH); End Sub '小写字母 Private Sub Command2_Click() Dim CH As Integer Randomize CH = Int((90 - 65 ...