VB题目求解?

初级VB题目 求解 急

第一题 Dim a%, b%, c% a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) If a<>0 Then If b ^ 2 - 4 * a * c >= 0 Then TextBox4.Text = (b * (-1) + Math.

vb题目!高分求解!

假设文本框从左到右依次为TextBox1、TextBox2按钮从左到右依次为CommandButton1、CommandButton2、CommandButton3则代码如下:Private Sub CommandButton.

求解vb题目 写出程序运行结果并解释

1、运行结果:a= 4 b= 6 c= 6 a= 8 b= 6 c= 6 2、ByVal 和 Byref 代码中,定义了两个内部实现代码完全相同的 Sub 过程 p1 和 p2,区别在于这两个过程的参数定义:p1 采.

VB一小题目求解!!!

Function shouxing(ByVal a As Integer) As BooleanIf (a ^ 2) Mod (10 ^ Len(CStr(a))) = a Then shouxing = TrueEnd FunctionPrivate Sub Form_Load()For i = 1 To 1000If shouxing(i) = True Then Print iNextEnd Sub

vb的题目,求解(当x=2那一题)

分析:x = 2if x = 2 Then Print x=2因为:x = 2所以if True Then Print True

求解一道vb题目

Option Base 1 Private Sub Command1_Click() Dim x, y, i As Integer y = Array(1234, 1243, 1324, 1342, 1423, 1432, 2134, 2143, 2314, 2341, 2413, 2431, 3124, 3142, 3214, .

VB题目求解 题目:给出两个正整数,求他们的最大公约数和最小公倍.

Private Sub Command1_Click()Dim k%, a%, b%, c% a = Val(Text1) b = Val(Text2) If (a Mod 2 = 0) And (b Mod 2 = 0) Then a = a \ 2 b = b \ 2 k = 2 Else k = 1 End If If a < b .

VB中一些题目求解~~谢谢啦 1.运行程序是系统程序和应用程序哪个优.

1 系统程序2 不同计算机汇编程序相不同3.GB18030字符采用的是双字节编码

VB题目求解 2.使用单选按钮来改变文本框中字体的字体形状(至少三.

我..知..道加..我..私..聊

求vb题目的解答过程

i=1 时 p=1+1/3=1四舍五入1/3=0,下面的都等于1i=2 时 p=1+3/5=2i=3 时 p=2+5/7=3i=4 时 p=3+7/9=4i=5时 p=4+9/11=5 这时p=5next i使i=6退出循环,输出6和5如果你有vb.