首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下: Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(InputBox("输入
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下: Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(InputBox("输入
admin
2019-06-20
20
问题
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下:
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = Val(InputBox("输入整数"))
y = Val(InputBox("输入整数"))
Print Str(fun(x, y) + x+y)
End Sub
Private Function fun(ByRef m As Integer, ByVal n As Integer)
m = m * m
n = n + n
fun = m+n
End Function
运行程序,单击命令按钮时,出现输入对话框,分别输入3、5,则窗体上显示的是
选项
A、27
B、28
C、33
D、38
答案
C
解析
函数fun执行后,x值被改变,y值不变。即x=9,y=5;计算得结果为33,选C)。
转载请注明原文地址:https://jikaoti.com/ti/O9N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下()操作不能触发滚动条Change事件。
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下:1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的数组元素;若a数
下列关于控件焦点的叙述中正确的是()。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4X=4Forj=1To3X=3Fork=1To2X=X+6NextkNextj,iPrintxEnd
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Pic的图片框,通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框,然后编写适当的事件过程。运行程序时,单击窗体,在图片
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3—192所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)()。
一个工作人员可以使用多台计算机,而一台计算机可被多个人使用,则实体工作人员与实体计算机之间的联系是( )。
随机试题
驾驶车辆通过人行横道线时,应注意礼让行人。
乙醇拭浴时应禁忌拭浴()、()、()、足底等部位。
A、肝胃湿热,火毒外侵B、肝气郁结,冲任失调C、肾气不足,肝失所养D、肝郁化火,肺阴不足E、肝火胃热,乳儿吮吸,外吹结毒乳发的病机是
心阳暴脱证的主要症状是
A.舌强硬红绛少津B.舌强硬语言謇涩C.舌强硬舌苔厚腻D.舌痿软淡白无华E.舌痿软红绛少苔
没有开立银行存款账户的个人向银行交付款项后,不能通过银行办理异地支付结算。
某校初三年级有位叫王峰的学生,经常迟到、旷课、上游戏厅,甚至打架、敲竹杠。学习成绩就更不用说了,门门功课挂红灯,尽管老师多次教育,仍不见好转,还是经常旷课、打游戏、向同学借钱,同学不借就打同学,以致班里同学见了他都躲得远远的。虽然偶尔也有进步,
第三者责任险负责赔偿保险车辆因意外事故,致使第三者遭受人身伤亡或财产的直接损失。所谓第三者是指被保险人及其财产和保险车辆上所有人员与财产以外的他人、他物。所谓“所有人员”指车上的驾驶员和所有乘坐人员。但这些人下车后除驾驶员外,均可视为第三者。根据以
下列关于各国宪法发展的表述,正确的是()(2016年一综一第18题)
InIndiamorethanonehundredlanguagesarespoken,______(其中只有十四种被认可为官方的).
最新回复
(
0
)