jwbf.net
当前位置:首页 >> 一道vB题求解答 >>

一道vB题求解答

你给了 200 分,可能是真心求解埃但问题是你的图的确是难以看清! 现在考验你是不是真的 "求解答急急急":把它打出来!大家努力给你解答。

第一题 Private Sub Form_Click() Me.Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Me.Label1.Caption = "你双击了窗体" End Sub 第二题 Private Sub Command1_Click() If Me.Command1.Caption = "清屏" Then Me.Cls M...

M(1)=M(1)+1 M(2)=0 M(2)=M(1)+1 M(2)=2 M(1)=M(2)+1 M(2)=2 M(2)=M(2)+2 M(2)=4

vb窗口显示分为三层,图像框(中间层)位于图片框(顶层,所有位于图片框里的控件也是最高层的)的下面,最底层是print等输出的。。。。

i=7,temp="",s2=s2&temp,s2="",返回上一层递归 此时,temp="f",运行s2=s2&temp,s2="f", 再运行上一层递归的s2=s2&temp ...

Private Sub Command1_Click()Dim i As IntegerFor i = 11 To 999 If i = StrReverse(i) And i ^ 2 = StrReverse(i ^ 2) And i ^ 3 = StrReverse(i ^ 3) Then Print i, i ^ 2, i ^ 3 End If Next End Sub

因为第一个k=1在循环外面,只对第一次循环有效,所以,后面的内循环开始时也需要k=1。 在这个程序中Cstr可以不用,直接Print s就可以了。 也可以这样的:

因为第一个k=1在循环外面,只对第一次循环有效,所以,后面的内循环开始时也需要k=1。 在这个程序中Cstr可以不用,直接Print s就可以了。

3 n=3,所以print arr2(n),arr1(n)等于print arr2(3),arr1(3) 循环时分别给arr1数组的1~5号元素赋值1,2,3,4,5,所以arr1(3)=3 循环时一直给arr2数组的第三个元素[arr2(3)]赋值,最后一次赋值2*3+5=11 4 第一个循环给a数组1~10元素,分别赋值1,2,3...

1.求二维数组中最大 Dim a(2, 3) As Integer Dim max As Integer, row As Integer, column As Integer a(1, 1) = 34: a(1, 2) = 34: a(1, 3) = 43 a(2, 1) = 34: a(2, 2) = 78: a(2, 3) = 12 Dim i, j, m, n As Integer For i = 1 To 3 For i = ...

网站首页 | 网站地图
All rights reserved Powered by www.jwbf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com