ldcf.net
当前位置:首页 >> VB 题目,求答案,急!!!! (题目在问题补充中) >>

VB 题目,求答案,急!!!! (题目在问题补充中)

创建两个窗口,在窗口1上添加Listbox .Text与Label控件,然后“工具/菜单编辑器”创建菜单。窗口2上添加两个按钮,分别命名为Btn_draw和Btn_comback。完成后输入如下代码: 窗口1代码: Option Explicit Private Sub Menu11_Click() '产生 Dim Int...

第一题选 B 第二题选 D 这些题目是哪里的,感觉写得不够严谨

你这小子,是不是在搞自修啊, 我看到你在网上放了无数个类似的题目啦, 这么简单的问题,自己不动脑筋,光求个答案敷衍教师了事啊 建议大家都不要为这点小分误了程序员这个行当

private sub command1_click() dim i as integer,n as integer,st as string dim n1 as integer,n2 as integer for i=1 to 10 n=int(rnd*90)+10 st=st & str(n) if n mod=0 then n1=n1+1 else n2=n2+1 endif next i text1.text=st text2.text=n1...

A.softwre and hareware Private Sub Command1_Click() a = "software and hardware" b = Len(a) c = Left(a, 8) MsgBox a, b, c End Sub

我可以给你一个实例。需要私信给我

Private Sub Command1_Click() n = Val(Text1.Text) Text1.Text = "" For i = 1 To Sqr(n) Text1.Text = Text1.Text & i * i & " " Next End Sub

Private Sub Command1_Click() '调用实例 Dim str As String MsgBox return_str(5) End Sub Private Function return_str(number As Integer) As String '通用函数 Dim str As String For i = 1 To number Dim str_temp As String str_temp = ""...

发不了图,求会写的加QQ,题目类似这种,有6.7个题 写出下面过程运行后,按照什么格式打印输出,输出的内容是什么? Private Sub fa() Dim a(4) As Integer For i = 1 To 5 a(i - 1) = i Print "a("; i; "(="; a(i), Next End Sub

'滚屏滚得我头晕 '***************************************** 1. 属性,事件,方法。 2. vbp (Visual Basic Project) 3. 建立工程,编写代码,运行调试 4. 整型占2字节, 双精度占8字节 5. Form_Click 6. Text1.Text = "Hello" 7. Text1.Text = ...

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