www.ndwl.net > 一些VB试题求解

一些VB试题求解

题目要求数组是3×3的,所以一定是二维数组 a是一维数组,所以不对 b是-1,0,1;-5,-4,-3,所以是对的 c是0到3,0到3,是4*4数组,所以不对 d是5*13数组,所以也不对 本题答案b

我知道你在考试,所以很想帮你

ucase mid函数第一项是以0计算的所以第二题应该是defg

1. 在名称为 Form1的窗体上随机产生10个100~200(包括100,200)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果.运行后如图所示. Dim a(9) As Integer Dim max As Integer Dim min As Integer Dim sum As Integer Private Sub Form_Lo...

第一题 for i=1 to 100 print i; if i mod 10=0 then print ’10个换行 next print 第二题 sum=0 for i=1 to 10 for j=1 to i sum =sum+j next next print sum 第三题麻烦,要上机做了,先给你前两个 Private Sub Command1_Click() Dim maxw As S...

s=text1.text r=r-1 s=mid(s,p+1)

一、单选题 1 C 2 D 3 A 4 B 5 C 6 C 7 A 8 B 9 D 10 D 二、 1 B,C,D 2 B C D 3 A B D 4 A C D 5 A C D 三、判断 1 对 2 对 3 对 4 错 5 对 四五题条件不足,略过 六、 y = 2012 s=3 s1=2 for i=1 to 20 s1=s1+2 s=s+s1 if s>=100 then exit for...

Public Sub FindStr() Dim Str1 As String, Length As Integer, Sum As Integer, I As Integer Str1 = InputBox("请输入一个字符串") Length = len(Str1) I = 1 Sum = 0 Do While I

Dim Sign As String, Flag As BooleanPrivate Sub Command1_Click() Dim DecimalNumber As Double DecimalNumber = TransformBtoD(Text1.Text) Label2.Caption = "转换成十进制数为:" + Sign + CStr(DecimalNumber)End SubPrivate Function Tra...

第一空 变量i,因为下面用的的是第一重循环的变量;第二空 1 因为输出的图形是随着第一重循环的变化而变化的! 也就是: 变量 i =1 的时候 ,输出1个*;变量 i =2 的时候 ,输出2个*,以此类推!

网站地图

All rights reserved Powered by www.ndwl.net

copyright ©right 2010-2021。
www.ndwl.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com