在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10,12,21,32,24)
For i = 1 To 5
If x(i) >c Then
d = d + x(i)
c = x(i)
Else
d = d - c
End If
B.23
在窗体上画1个名称为Command1的命令按钮,并编写以下程序:
Private Sub Command1_Click()
Print fun("ABCDEFG")
End Sub
Function fun(st As String) As String
stlen=Len(st)
temp= ""
For k=1 To stlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Next k
fun=temp
End Function
程序运行时,单击命令按钮,则在窗体上显示的是______。
B.AGBFCE
以下叙述中错误的是______。
A.Visual Basic应用程序既能以编译方式执行,也能以解释方式执行
B.一个
工程
路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理
可以包括多种类型的文件
C.程序运行后,在内存中只能驻留一个窗体
D.对于事件驱动型应用程序,每次运行时的执行顺序可以不一样
在窗体上画一个命令按钮(名称为Command1),编写如下事件过程:
Private Sub Command1_Click()
b = 5
c = 6
Print a = b + c
End Sub
程序运行后,单击命令按钮,输出的结果是:False_____。
在本题中,变量a未定义,因此初始值为0,在表达式a=b+c中,a=0,b+c=5+6=11,所以表达式的值为False,程序的输出结果为False。
下面循环语句中在任何情况下都至少执行一次循环体的是______。
D.Do
循环体
Loop Until <条件>
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)。
编写如下程序
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x,y)
End Sub
Function f(ByVal x As Integer,ByVal y As Integer)
Do While y<>0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序,在Text1文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
是_B.__8__
设a = "MicrosoftVisualBasic" ,则以下使变量b的值为"VisualBasic"的语句是__D____。
A.b = Mid(a, 11, 10)
B.b = Right(a, 10) a的后十个字符所组成的字符串
C.b = Left(a, 10) a的前十个字符串组成的字符串
D.b = Mid(a, 10) 从第十个字符起的所有字符串
某人设计了如下程序用于计算并输出7!(7的阶乘)
Private Sub Command1_Click()
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
执行程序时,发现结果是错误的。下面的修改
方案
气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载
中能够得到正确结果的是______。
C.把t=0改为t=1
下列不能打开菜单编辑器的操作是______。
A.单击工具栏中的"菜单编辑器"按钮
B.按Ctrl+E
C.执行"工具"菜单中的"菜单编辑器"命令
D.按Shift+Alt+M
按Shift+Alt+M不会有任何作用,因为它不是任何功能的组合键。
与数学表达式cos2(a + b) /3x+5,对应的Visual Basic表达式是___cos(a+b)^2/3*x+5___。
在窗体上画一个名为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click( )
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum=_sum+fun(i)_____
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
_fun=p_____
End Function
以上程序的功能是,计算1!+2!+3!+...+n!,其中n从键盘输入,请填空。
题目要求计算1!+2!+3!+……+n!,其中求每一项的阶乘可以通过调用
函数
excel方差函数excelsd函数已知函数 2 f x m x mx m 2 1 4 2拉格朗日函数pdf函数公式下载
fun来完成。先定义一个变量i为整型数据,作为循环控制变量,并给Sum变量赋初值,初值为0。由用户输入一个数值赋给变量n,并将变量n的数据类型转换为数值型。循环变量i从1到n之间发生变化,函数fun利用主程序传递过来的参数,最后要求返回该过程计算的值,变量p用来存放n!,所以最后应该返回变量p的值给调用过程,Function过程通过"过程名=表达式"把值赋给"过程名",所以Function fun中缺少过程返回值语句,应该填写fun=p,表示过程返回变量p的值。要累计每一项的阶乘的和,因此主程序中缺少累计各项阶乘的的语句,每计算一项阶乘,就将它的值累加给变量Sum,所以Sum变量作为一个累计数,在表达式中既要累计和,又要调用函数的命令,即sum+fun(i)。
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:
Private Sub Form_Load()
Show
Text1.Text = ""
Text2.Text = ""
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text + Chr(KeyCode - 4)
End Sub
程序运行后,如果在Text2文本框中输入"efghi",则Text1文本框中的内容为_ABCDE_____。
在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click()
Dim str As String, s As String, c As String
str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, c) = 0 Then
s = s+c或 s&c
End If
c = Chr$(Asc(c) -1 )
Wend
If s <> "" Then
Text1 = s
End If
End Sub
题目要求把输入的字符串中没有的字符显示出来,InStr(str, c) = 0就是指字符串中没有该字符,就要把该字符加入到变量s中,即s=s+c(或s=s & c);题目是从"Z"到"A"循环查找的,找完一个,就找下一个,而从"Z"到"A"字符的ASCII码是逐渐减小的,所以c = Chr$(Asc(c)-1)。
在窗体上画一个文本框和一个标签,其名称分别为Text1和Label1,然后编写如下程序:
Function fun(s As Integer)
For i = 1 To s
Sum = Sum + i
Next i
fun = Sum
End Function
Private Sub Form_Click()
Text1.Text = Str(fun(5))
End Sub
Private Sub Text1_Change()
Label1.Caption = "VB Programming"
End Sub
程序运行后,单击窗体则文本框中显示的内容是__15____,而在标签中显示的内容是_ VB Programming _____。
启动窗体在__工程属性____对话框中指定。
假定有如下程序,实现在文件中查找指定的字符串:
Private Sub Form_Click()
Q$ = InputBox$("请输入要查找的字符串:")
Open "C:\test\tmp.dat" For Input As #1
x$ = Input$(LOF(1), 1) '把整个文件内容读入变量X$中
Close
y = __Instr____(1, x$, Q$)
If y <> 0 Then
Print "找到字符串"; Q$
Else
Print "未找到字符串"; Q$
End If
End Sub
请在上面划线处将程序补充完整。
以下程序的功能是:从键盘上输入若干个数字,当输入负数时结束输入,统计出若干数字的平均值,输出结果。请填空。
Private Sub Form_click()
Dim x, y As Single
Dim z As Integer
x = InputBox("Enter a score")