vb编程考试题库及答案

裘融春2792有关VB的试题,急 第4章练习题一、写出下列Visual Basic表达式正确的形式.(1) - 3 / 8 + xy – 8.Cos28○(2) (8 + 6) ^ (4 ÷ - 2) + Sin(2 * )(3)[(x + y) + z] * 80 - 5(C ... -
穆亮省13417692066 ______[答案] 1-1,(-3)/8+x*y-8*cos(3.14159*28/180) (8+6)^(4/(-2))+sin(2*3.14159) ((x+Y)+z)*80-5*(c+d)

裘融春2792VB编程试题解答 -
穆亮省13417692066 ______ 1. Const PassWord = ＂12345678＂ Dim inpass As String inpass = InputBox(＂请输入你的密码＂, ＂输入密码＂) If inpass = PassWord Then Exit Sub Else MsgBox ＂对不起!你是非法用户.＂ Unload Me End If 2. 13 3. Private Sub Form_...

裘融春2792vb编写程序题目答案! -
穆亮省13417692066 ______ 在窗体上画一个按钮,编写以下代码: Private Sub Command1_Click() Dim s As String, c As String, a(25) As Integer Dim i As Integer, j As Integer, n As Integer, max As Integer s = Text1.Text n = Len(s) For i = 1 To n c = UCase(Mid(s, i, 1)) If c >...

裘融春2792vb基础知识试题
穆亮省13417692066 ______ 答案:B 学好VB的诀窍之一就是要以“对象”的眼光去看待整个程序设计.“对象”是面向对象程序设计的核心,明确这个概念对理解面向对象程序设计来说至关重要.那么,对象是什么?在程序中怎么没有看到对象呢? 其实对象在VB的程序...

裘融春2792电脑考试vb编程题.
穆亮省13417692066 ______ Function func() Dim i As Integer, n As Integer For i = 100 To 999 a = i \ 100 b = (i - a * 100) \ 10 c = i - a * 100 - b * 10 If i = a * a * a + b * b * b + c * c * c Then func = func + 1 Next i End Function

裘融春2792VB编程题 -
穆亮省13417692066 ______ 第一次循环结束:第二次循环结束时:K=1,b(3-K)=b(2)=a(K+1)=a(2)=3 第三次循环结束时:K=2,b(3-K)=b(1)=a(K+1)=a(3)=5 b(K)=b(3)=1

裘融春2792VB编程题 给我个答案 -
穆亮省13417692066 ______ for i = 0 to 10 b=b+(-2)^(i) nexttext1=b`本人测试通过 代码最少 答案是 683...

裘融春2792vb编程一维数组考试题目 -
穆亮省13417692066 ______ Option Base 1Dim a%(80), i%, k%, t%, b%(80), c%(80)Private Sub Command1_Click() Me.Cls Dim j As Integer Randomize t = 1 k = 1 For i = 1 To 80 a(i) = Int(Rnd * 90) + 10 If a(i) Mod 2 = 1 Then b(k) = a(i) k = k + 1 End If If IsPrimeNum(a(i)) Then ...

裘融春2792vb编程题
穆亮省13417692066 ______ 先定义数组:RndNum(1 To 10) 采用公式产生随机数:Int((Max - Min + 1) * Rnd(Minute(Time)) + Min) 注:有一天我无聊,证明了Max - Min 的差 + 1 后,得出的数值仍然在范围内. 然后冒泡排序,具体做法:首先比较第1个和第2个数,将小数放前,大数放后.然后比较第2个数和第3个数,将小数放前,大数放后,直到第十个数,重复这样的过程,直到无需排序后停止.

裘融春2792一道vb程序设计题目{急求答案} -
穆亮省13417692066 ______ Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Me.ScaleWidth / 2 Text1.Height = Me.ScaleHeight / 2 Command1.Left = Me.ScaleWidth...