VB程序设计题:编程:输出1--1000之间的同构数（就是出现在其平方数右边的

Private Sub Form_Click()

Dim i As Integer

    For i = 1 To 1000

        If Right(i ^ 2, Len(CStr(i))) = i Then Print CStr(i) + "    >>>>>>>   " + CStr(i ^ 2)

    Next

End Sub

Private Sub Form_Click()

Cls

Dim a(100) As Integer

'以下产生100个正整数

Randomize

For i = 1 To 100

a(i) = Int(Rnd() 100 + 1)

Print a(i) & vbTab;

If i Mod 5 = 0 Then Print

Next

'排序

For i = 1 To 99

For j = i + 1 To 100

If a(i) > a(j) Then tmp = a(i): a(i) = a(j): a(j) = tmp

Next

Next

'输出数据

Print "排序后的结果"

For i = 1 To 100

Print a(i) & vbTab;

If i Mod 5 = 0 Then Print

Next

End Sub

'按钮 2个 用于购买商品

'text 2个 用于输入购买数量

'标签 2个 用于显示商品细节

Private Sub Command1_Click()

MsgBox "商品:" & Label1Caption & " 数量:" & Text1Text & " 总价:" & 25 Text1Text & "元", 48, "购买成功"

End Sub

Private Sub Command2_Click()

MsgBox "商品:" & Label2Caption & " 数量:" & Text1Text & " 总价:" & 08 Text2Text & "元", 48, "购买成功"

End Sub

:

>

一、选择题

1、在Visual Basic60中规定工程文件的扩展名是（A）。

（A）vbp （B）for （C）frm （D）bas

2、在Visual Basic中,以下选项中表示单击事件的是（B）。

（A）KeyUp （B）Click （C）Activate （D）Load

3、下述可以输入数据的是（D）。

（A）Print （B）Msgbox （C）Clear （D）InputBox

4、加载语句Picture1Picture=Picture(“d:\x\123bmp”) 不能加载，其中错误的地方是（D）。

（A) Picture1 （B)Picture （C) =Picture （D) (“d:\x\123bmp”)

5、如果要处理31415类数据，使用的变量类型应该是（A）。

（A） Single （B） Long （C） Integer （D） String

6、Len(“People”)的值是（A）。

（A）6 （B） 7 （C）8 （D） 9

7、语句Dim x As Integer作用是:将x定义为（B）变量。

（A）单精度型 （B）整型 （C） 布尔型 （D）字符型

8、在Select判断结构中，下面的表述中不正确的是（D。

（A）Case 1 （B）Case a > 5 （C）Case 3 To 6 （D) Case is <10

9、下列关于Exit For 的说法，正确的是（B）。

（A）它可以退出任何类型的循环 （B）一个循环只能有一个Exit For

（C）每个循环必须有Exit For （D）Exit For本身是无条件退出循环

10 当拖动滚动条中的滚动块时，将触发滚动条的事件是（C）。

（A) Move （B) SetFocus （C) Scroll （D) Change

二、简述下图程序界面的设计步骤（包括添加控件、设置属性和编程，）

三、程序阅读题

1、阅读下列程序段

Option Explicit

Private Sub Command1_Click()

Dim str1 As String

Dim str2 As String

str1 = "ABCDEFG"

MySub str1, str2

Print str2

End Sub

Private Sub MySub(ByVal a As String, b As String)

Dim c As String

Dim i As Integer

For i = Len(a) To 1 Step -1

c = c+ Mid(a, i, 1)

Next

b= c

End Sub

程序运行后，“print”语句的输出结果是___ _。

四、编写程序

1、利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。

2、 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。

答案：

一4应选c,picture改为LoadPicture

三GFEDCBA

四1 If fz_0Text = "" Then

MsgBox("请输入!")

Exit Sub

End If

s = fz_0Text

n = CInt(s)'此题输入n为10即可

For i = 0 To n

MsgBox("请输入第" & Str(i + 1) & "个数字")

ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型

Print(ar(i))

Next

Print("排序后")

'排序

For i = 1 To n - 1

intmin = i '对第i遍排序，初始假定第i个元素最小

For j = i + 1 To n '找出最小的元素序号

If ar(j) < ar(intmin) Then intmin = j

Next j

'将找出的最小元素与第i个元素交换

sngt = ar(i)

ar(i) = ar(intmin)

ar(intmin) = sngt

Next i

'打印输出

For i = 1 To n

Print(ar(i)) '不换行输出

Next i

'输出后保存就可以了()

四2 Dim i As Integer, j As Integer

For i = 100 To 200

If i Mod 3 = 0 Then

If j = 0 Then

j = i

Else

j = j + i

End If

End If

Next

MsgBox(j)

Dim 成绩(5, 5) As Single

Private Sub Command1_Click()

Dim 姓名(5) As String, 学号(5) As String

For i = 1 To 5 '输入和产生数据

Do

姓名(i) = Trim(InputBox("请输入第" & i & "为同学的姓名"))

Loop Until 姓名(i) <> ""

Do

学号(i) = Trim(InputBox("请输入第" & i & "为同学的学号"))

Loop Until 学号(i) <> ""

For j = 1 To 5

成绩(i, j) = Sqr(Rnd) 100

Next j

Next i

For i = 1 To 5 '算总成绩,本来可以不这样，是按你的要求做的

总成绩 (i)

Next i

For i = 1 To 4 '排序

For j = i + 1 To 5

If 成绩(i, 0) < 成绩(j, 0) Then

For k = 0 To 5

t = 成绩(i)

成绩(j) = 成绩(i)

成绩(i) = t

Next k

End If

Next j

Next i

For i = 1 To 5 '输出

Print 姓名(i); Tab(10); 学号(i);

For j = 1 To 5

Print Tab((i + 1) 10); 成绩(i, j);

Next j

Print Tab(70); 成绩(i, 0); 成绩(i, 0) / 5

Next i

End Sub

Private Sub 总成绩(m)'这里你要求用函数，我用的是过程

For i = 1 To 5

成绩(m, 0) = 成绩(m, 0) + 成绩(m, i)

Next i

End Sub

创建标准exe 粘贴下面代码就可以了

Private Sub Command1_Click()

Text1Visible = True

End Sub

Private Sub Command2_Click()

Text1Visible = False

End Sub

Private Sub Form_Load()

Command1Caption = "显示文本框"

Command2Caption = "隐藏文本框"

End Sub

以上就是关于VB程序设计题:编程:输出1--1000之间的同构数（就是出现在其平方数右边的全部的内容，包括:VB程序设计题:编程:输出1--1000之间的同构数（就是出现在其平方数右边的、求解VB程序设计题、VB程序设计题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！