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

一些VB试题求解

if text1.text="小红" and text2.text="2011VBKS" then msgbox "欢迎参加VB考试!" else msgbox "输入数据有误!请重新输入……" end if

1 MsgBox 2 固定不变 3 长整型 4 单击“运行”菜单下的“启动” 5 单击工具栏上的“启动”按钮 6 按“F5”启动 7 SetFocus 8 项目列表 9 对其他控件 10 属性 11 取消(&C) 12 Cancel 13 True 14 Static 15 Public 16 Dim 17 Private 18 可以每隔一个时段 ...

这个没什么难啊,就是控件的一些基本操作。

Private Sub Command1_Click(Index As Integer) '为了简单,我将8个按钮,全部做成一个控件数组,左边四个,分别为 0~3 右边四个为 4~7 Select Case Index Case 0 If List1.ListIndex > -1 Then List2.AddItem List1.List(List1.ListIndex) List1...

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...

Private Sub Command1_Click() Dim a As String, m, n, i As Integer, s As String, b() As String a = UCase(InputBox("输入两个字母")) If Len(a) = 2 Then Cls m = Asc(Left(a, 1)) n = Asc(Right(a, 1)) If m > n Then i = m: m = n: n = i ...

你要看的懂 我觉得你应该可以写出

Private Sub Form_Click()Dim a(16) As IntegerDim i As Integera(0) = 1a(1) = 1 For i = 0 To 14 a(i + 2) = a(i) + a(i + 1) Print a(i); NextEnd Sub Private Sub Form_Click()Dim i As Integer, a As Integer, s As StringRandomize For i...

用2个时钟控件,和2个滚动条就可以啦!

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

网站地图

All rights reserved Powered by www.ndwl.net

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