vb程序设计题库及答案

范咽丹1587VB程序设计编程题
霍许晓13822226649 ______ Dim i, j, k As Integer For i = 1 To 100 For j = 1 To i If i Mod j = 0 Then k = k + 1 End If Next If k = 2 Then Print ＂1-100中素数有＂ & i End If k = 0 Next

范咽丹1587vb程序设计试题 -
霍许晓13822226649 ______ Option Explicit Dim PX As Single '中心坐标X Dim PY As Single '中心坐标Y Dim Rc As Single '轨道半径 Dim Rb As Single '小球半径 Dim Arg As Single ' 运转角度 Const Stp As Single = 3.14159 / 10 '运转速度 Private Sub Form_Load() Picture1....

范咽丹1587VB的简单程序设计题.... -
霍许晓13822226649 ______ Function y(b As Date) As Integery = (Now - b) \ 365End FunctionPrivate Sub Form_click()Dim i As Integeri = y(InputBox(＂＂, , ＂2008-01-01＂))Print ＂我的...

范咽丹1587VB程序设计题 -
霍许晓13822226649 ______ Private Sub Form_Load()Dim a()ReDim a(9)Dim t As IntegerFor i = 0 To 9 a(i) = Int(Rnd * 10)NextFor i = 0 To UBound(a) - 1 For j = 1 To UBound(a) If a(j - 1) > a(j) Then...

范咽丹1587VB程序设计题
霍许晓13822226649 ______ Private Sub Command1_Click() Dim n, sum n = Val(InputBox(＂n=＂)) For i = 1 To n sum = sum + Val(InputBox(＂请输入第＂ & i & ＂个数＂)) Next i MsgBox ＂这些数的和为:＂ & sum End Sub

范咽丹1587VB程序设计习题 -
霍许晓13822226649 ______ 1. x = Val(InputBox(＂Input X: ＂))If x < 10 Then y = Abs(x)If x <= 20 Then y = Sqr(3 * x - 1)If x > 20 Then y = 3 * x + 2Debug.Print y2. x = Val(InputBox(＂Input X: ＂))If x < 10 Theny = Abs(x)ElseIf x <= 20 Then y = Sqr(3 * x - 1)ElseIf x > 20 Then y = 3 * ...

范咽丹1587VB程序设计题
霍许晓13822226649 ______ Option ExplicitPrivate Sub Command1_Click() Dim n As Long n = 10 '自己随便定义一个数 MsgBox n & ＂的因子和:＂ & fc(n)End SubFunction fc(n As Long) As Long Dim i As Long For i = 1 To n / 2 If n Mod i = 0 Then fc = fc + i NextEnd Function

范咽丹1587vb程序设计题
霍许晓13822226649 ______ Private Sub Form_click() Dim x%, y%, s%, i% x = Val(InputBox(＂x=＂)) y = Val(InputBox(＂y=＂)) For i = x To y s = s + Fac(i) Next Print s End Sub Function Fac(n) Dim i% Fac = 1 For i = 1 To n Fac = Fac * i Next End Function

范咽丹1587一道vb程序设计题目{急求答案} -
霍许晓13822226649 ______ Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Me.ScaleWidth / 2 Text1.Height = Me.ScaleHeight / 2 Command1.Left = Me.ScaleWidth...

范咽丹1587VB 程序设计题 -
霍许晓13822226649 ______ Dim a As Integer Dim b As Integer Dim c As Integer Private Sub Command1_Click() Dim m As Single m = (max(a, b, c)) / (max(a + b, b, c) * max(a, b, b + c)) Text1 = ＂m=＂ & Format(m, ＂0.0000＂) End Sub Private Sub Form_Load() a = Val(...